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Introducción 


Este libro contiene siete juegos de aventuras, todos ellos diferentes, pero con el factor en común 
de ser gráficos. Todos están diseñados de forma que sean fáciles de comenzar, pero muy difíciles 
de resolver (la marca de contraste de una buena aventura). 

Varias técnicas han sido empleadas en estos programas, incluyendo código máquina y métodos 
de scroll y de ahorro de memoria; siempre que ha sido posible estos métodos están explicados de 
una manera clara y concisa. Consecuentemente, este libro te ofrece tanto consejos en el arte de escri- 
bir aventuras, como muchas horas felices de juego. 

Cada uno de los siete juegos está dividido en una serie de secciones como se indica a conti- 
nuación. 


Escenario 


Se ofrece una breve descripción del juego, perfilando las reglas del mismo. Esta sección te indica 
la misión que debes llevar a cabo y las pruebas que deberás superar. 


Indicaciones de carga 


Al ser los programas muy largos, es muy posible cometer errores al introducir el programa. Esta 
sección intenta ayudar al usuario, indicando las líneas más complejas, en las cuales los errores pue- 
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den ocurrir más fácilmente. Es importante, por tanto, hacer referencia constante a esta sección cuando 
se esté tecleando el programa. : 


Técnicas 


Cada programa viene acompañado de una pequeña sección donde se explican una O más técni- 
cas utilizadas en el programa. Esperamos que con estas indicaciones y haciendo referencia a los lis- 


tados, estos métodos sean asimilados. Estas técnicas pueden ser luego utilizadas para diseñar aven- 
turas mucho más complejas. 


Instrucciones de juego 


Por propia definición, en un juego de aventuras es necesario que el jugador experimente y des- 
cubra por sí solo muchos de los comandos u órdenes; por esto en esta sección sólo se ofrece un 
nivel mínimo de información. Esta información hará referencia normalmente a los movimientos y 
a la estructura básica de los comandos. 


Adaptación 
Con objeto de incrementar la variedad, varios de estos programas están diseñados de forma que 


pueden ser fácilmente modificados tecleando nuevos laberintos, planos de habitaciones, etc. Para 
los programas con esta facilidad, se incluye un conjunto de instrucciones claras y fáciles de seguir. 


Listado 


La última sección de cada capítulo contiene el listado del programa, con una nota similar a la 
indicada a continuación. 


IMPORTANTE 
1) El programa debe ser tecleado usando CAPS LOCK. 
2) Los espacios en los mensajes deber ser copiados tal como están. 


Por último, recuerda que los caracteres gráficos deben ser tecleados usando el modo GRAFICS 
(véase el Manual del Spectrum). 
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E AA 


La casa 
de la aventura 


Escenario 


Hacía muchos años que tu rico tío Alluishus Flude II había muerto, cuando un viejo amigo 
te habló sobre el fabuloso tesoro que tu tío había acumulado durante su lucrativa vida. Se rumorea- 
ba que había escondido unas valiosas joyas en su gran mansión y que si eran encontradas conduci- 
rían a inimaginables riquezas. 

Sin embargo, hace unos días, algo más salió a la luz. 

Estabas examinando la casa cuando descubriste un descolorido pergamino detrás de unos libros. 
El mensaje del pergamino confirmaba que todos los rumores eran ciertos. Para que nadie más pu- 
diera leer la nota, la quemaste. 

Entonces, a la mañana siguiente, muy temprano, cuando todo estaba en silencio, entraste en la 
casa prohibida con la firme determinación de encontrar las diez joyas que te conducirían a un ri- 
queza increíble. 


Indicaciones de carga 


Este programa es muy extenso y cabe justo en el modelo de 48K, por lo que ha sido dividido 
en dos partes que deben ser cargadas como sigue: 
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Primero teclea AVENTURA.1. Este crea los gráficos definidos por el usuario que van a ser usa- 
dos en el programa principal. Cuando el programa haya sido tecleado y comprobado, sálvalo en 


cinta usando: 
SAVE “CHAR” LINE 1 


Ahora teclea AVENTURA.2, poniendo especial atención en las numerosas instrucciones VAL?” 
que han sido incluidas con objeto de ahorrar memoria. Cuando el programa esté terminado, sálvalo 
en cinta a continuación del anterior CHAR mediante: 


SAVE “AVENTURA” LINE 1 


Una vez hecho esto, el programa estará listo para comenzar la aventura. Rebobina la cinta y 
teclea LOAD*”; a continuación se producirá la carga y ejecución automática del programa. 


ri rr a PP DU 040 PA] 14 In A e pr MN ps 1 


NOTA: Ambos programas están expuestos de manera clara y sencilla y no existen grandes pro- 
blemas. No obstante, se debe prestar especial cuidado al meter las líneas con mensajes textuales, 
en las cuales los espacios están a menudo omitidos o duplicados, con objeto de producir un adecua- 
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US 


o 


e i99ctot ea pd 


Ei cito ÓN eds PEA e. 


Ea ae ll me ls EA ia f 
a i | 
pos ar Ma del a a yo dea *. cn da 4 É 
E E E ds E BES ses csi ss a y 

le. * se e HN 3 e . 
AE Pee: Era | 


/l a LA En A sd na rn 
E a Iria: and Pa 


E +, , a E A 
| il dl 0 Nc, 


dat 


qa0ma 


pa A LE 


6iy má 


ETA 
Dd 
pe 


MAD : ve A (e A Ma 
= Ate =p A] ma l e pe da Vir 
uy AAA ato clas AN a EN, ' TN cn Du Aita A 
AU nn. lO da ca a da da o E as 
l mit da net AN dE di a ie ha Mb o Pa 
A cial Dad hi aa lA land a di Add. a AR 


Un problema corriente al escribir grandes juegos de aventuras es la disponibilidad de memoria. 
Un programa que use muchas matrices o datos numéricos gastará la memoria rápidamente, pues 
cada valor numérico requiere por los menos 7 bytes. 

En el caso de matrices es muy difícil economizar, pero hay varios métodos para ahorrar memo- 
ria en el caso de datos numéricos: | 


A A A ANAIS NA 
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1) Si un número concreto (p. ej., 255) va a ser utilizado frecuentemente en un programa, es posi- 
ble ahorrar memoria asignando el número a una variable (p. ej., LET Z = 255) y usando 
esta variable a lo largo del programa. 


2) El valor cero es uno de los números más frecuentes en un programa, y sustituyéndolo por 
NOT PI pueden ser ahorrados algunos bytes. 


3) Se puede ahorrar también memoria introduciendo los valores numéricos como cadenas de 
caracteres y mediante la función VAL transformarlos en sus respectivos valores. Por ejemplo: 


INTRODUCIR 35 COMO VAI“35” 


La cantidad de memoria que puede ser ahorrada usando estos métodos depende del programa 
concreto. En particular, aplicados a esta aventura, suponen unos 6K de economía de memoria. 


EREETA MISA: CORE Fl PErrrñiErd TO A, 


Instrucciones de juego 


La casa de la aventura es un juego tanto gráfico como textual. Tu objetivo es encontrar las diez 
joyas que te permitirán alcanzar un tesoro escondido. Al encontrar las joyas debes colocarlas en 
la tablilla de las joyas, que también debes localizar. Las joyas están en los sitios más inverosímiles, 
y encontrarlas requerirá una gran dosis de inteligencia y lógica. Durante el juego, la comunicación 
con el ordenador se realizará introduciendo comandos de la forma verbo/nombre, tras la cual la 
correspondiente acción tiene lugar en la pantalla. 

Como dijimos en la introducción, estaría contra el espíritu de aventura dar aquí todos los co- 
mandos; por tanto, sólo los más importantes están listados a continuación: 


EXAMINA Para examinar un objeto teclea EXAMINA seguido del nombre del objeto. 
COGE Para coger un objeto teclea COGE seguido del nombre del objeto. 
DEJA Para dejar un objeto teclea DEJA seguido del nombre del objeto. 


15 


> 


| 
| 
| 
| 


4 
| 
i 


4 — e 


cadas en la tabla 1. 


El comando 1 o inventario listará todos los objetos que lleves en ese momento. 


I 
J Es similar al comando l, pero se refiere a las joyas, no a los objetos. 
SOS Si estás totalmente desorientado y tecleas SOS, conseguirás, si tienes suerte, 


algún consejo del ordenador. 


MIRA Tecleando MIRA seguido de una dirección se puede obtener alguna infor- 
mación importante en esa dirección. 


MOVIMIENTOS: El movimiento puede ser realizado en cualquiera de las seis direcciones indi- 


TABLA 1 
Comando Dirección 

N Norte 

5 Sur 

E Este 

0) Oeste 

x Arriba 

6 Abajo 


A 


Notas gráficas 


= GRAFICO 
= GRAFITO 
= GRAFICO 
GRAFICO 
GRAF ICO 
GRAF ICO 
GRAF 120 
GRAFITO 
= GRAFICO 


GRAF 1CO 
GRAF ICO 
GRAF 1C0 
GRAF 120 
GRAF ICO 
= GRAFICO 
GRAF ICO 
GRAFICO 
GRAF 120 
GRAF ICC 


SOTO Z3PA 


4 TO? Mo NN Y > 


Listado 


IMPORTANTE 


1) El programa debe ser tecleado usando CAPS LOCK. 
2) Los espacios de los textos deber ser introducidos tal como están. 


3) Notas gráficas. 
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10 RESTORE 20: FOR N=USR ":" 
TO USR ":"+7: READ Az POKE N,A: 
NEXT N 

15 LOAD ”" 

20 DATA 36,60,36,60,36,60,36, 3 
6 

3O DATA 
24,124 

40 DATA 
6,0,0,0,0, 

50 DATA 
6 

80 DATA 
, 248 

90 


16,16,56, 124,124,124,1 
24,16,24,16,16,56,68,5 
64,255,64,0 

16.16,16,16,16,16,16, 1 
0,31,35,69,249,178,140 


DATA 0,60,118,114,251,126, 1 


¡26,60 


100 DATA 22,34,34,28,8,8,8,8 


3 CLS 2: FRINT FLASH VAL "1"; 
"ESPERA UNOS SEGUNDOS..+...+.+» E 
4 POKE VAL "23658",VAL "8" 
11 FOR N=VAL "60000" TO VAL ”6 
0200": POKE N,VAL "0": NEXT N 
12 LET J=VAL "1" 
13 DIM O(VAL "29") 
14 DIM Y(VAL "18"): RESTORE VA 
L "8850": FOR N=VAL "1" TO VAL " 
18": READ Y(N): NEXT N 
16 LET R=VAL *"o” 
19 GO SUB VAL "20": GO TO VAL 
"”" 200 ” 
20 DIM O$S(VAL "18",VAL "32"): 


LET O$(VAL "1")="HAY TIRADA UNA 
ESCALERA ROTA. ” 
21 LET O$S(VAL "2")="PUEDES VER 
UN BOTE DE PEGAMENTO. " 
22 LET OS(VAL ”5")="EN EL SUEL 


O HAY UNA CERILLA. " 


23 LET OS$(VAL "6”)="HAY UNA CA 


¿JA DE CERILLAS. dk 


24 LET O$(VAL ”"4")="HAY UN CUC 


HILLO EN UNA SILLA. ES 


0,62,62,8,8,8,8,8 

0,2, 4.8, 16,32,64,0 
24,24,60,66,66,36,24,0 
112,16,112,16, 15,56, 68 
8,8,8,124,124, 124,124, 
0. 54/3381 2315 231. 731,2 


24,24,24,24, 24,24, 2442 


0,4,134,255,134,4,0,0 
60,60,24,24,24,24,24,2 


0,124,68,68,68,68,124, 


24,60,24,126,790,90, 36, 


26 LET O$(VAL ”"8")="HAY UNA LU 
FA TIRADA EN EL SUELO." 

27 LET O$(VAL "3")="HAY UNA LL 
AVE DE HIERRO. E 

28 LET O$S(VAL "9")="ENCUENTRAS 


UN MARTILLO TIRADO. lá 
29 LET O$S(VAL "12")="EN UN CAJ 
ON HAY UNA LLAVE DE ORO” 
30 LET X$="": LET OBJ=VAL "0" 
31 LET O$(VAL "10")="LA ESTACA 
DE MADERA ESTA AQUI. y 
32 LET OS(VAL "13")="PUEDES VE 
R UNA PEQUENA RADIO. se 
33 LET OS(VAL "11")="HAY UNA L 
AMPARA MAGICA. dl 
34 LET O$(VAL ”"14")="AQUI ESTA 
N LAS DOS PILAS. de 
35 LET O$S(VAL "15")="APOYADO E 
N LA PARED: UN TABLON. ” 
36 LET O$(VAL "16")="EXCEPTO P 
OR UNA ESPADA DE HIERRO" 
37 LET O$(VAL ”"17")="EN EL SUE 
LO HAY UNA LINTERNA. a 


GS a $ 


17 


z = = A y 
A A A 5 A A A 


A A OS 


dle 


= a E - 
a IO RAIL NA 
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38 LET O$S(VAL "18")="EN UNA ES 
QUINA HAY UN ESPEJO. ñ 

30 DIM R$(VAL "5", VAL "32")2 L 
ET RS$S(VAL "1")="AQUI NO HAY NADA 

VISIBLE. 5 

52 LET R$(VAL "3")="MIRANDO AB 
AJO VES EL OPALOD. li 

59 LET R$(VAL "4”)="UN TABLON 


; CRUZA EL AGUJERO. sz 


, ET J$(VAL 
, VAL 


56 LET R$(VAL "5")="LAS ESCALE 
RAS VAN A LA TRAMPILLA" 

199 RETURN 

200 DIM J$(VAL "10",VAL "15"): 
LET J$(VAL "1")="RUBI": LET J$(V 
AL "2")="ESMERALDA": LET J$(VAL 
"3")="PERLA": LET J$(VAL "4")="D 


IAMANTE"2 LET J$S(VAL "5")="0PALO 


210 LET J$íVAL 
T J$*(VAL 
T IJ$S$(VAL 


"6%")="AMBAR”: LE 
"7")="BARRA DE ORO": LE 
"8")="CRUZ DE PLATA": L 

"9")="ZAFIRO": LET J$( 
"10")="PLATINO" 

¿220 DIM J(VAL ”"10") 

230 LET JFLAGZ=VAL "o" 

300 DIM I$S$(VAL "18",VAL "14"): 
RESTORE VAL "2800": FOR N=VAL "1 
" TO VAL "18": READ I*(N): NEXT 
N 

528 DATA VAL "86",VAL "69",VAL 
"83", VAL. "32",VAL "835", VAL "79", 
VAL "32",VAL "70",VAL "65",VAL ” 


66",VAL "85",VAL "76",VAL "79",V 
AL "83",VAL "79",VAL "32",VAL "8 
4",VAL "469",VAL "83",VAL "79",VA 


L "82",VAL "79",VAL "46",VAL "32 
"VAL "84",VAL "69",VAL "32",VAL 
"72", VAL "65",VAL "83",VAL "32" 
¿VAL "67",VAL "79",VAL "78",VAL 
"86",VAL "65",VAL "82",VAL "84", 
VAL "73",VAL "68",VAL "79",VAL " 
32",VAL "69",VAL "78",VAL "32",V 
AL "77",VAL "73",VAL "76",VAL "7 


6",VAL "79",VAL "78",VAL "65",VA 
L "Be", VAL "73", VAL “79” 
529 DATA VAL "46" 
1000 LET (=1: GO SUB VAL "8000”: 
BORDER VAL "6": INPUT "": LET R 
=VAL. "1": PRINT INK VAL “1*;*ES 
TAS EN UNA PEQUENA HABITACION. HA 
Y UNA MESA EN LA ESQUINA Y EN 
CIMA UNA TRAMPILLA. "5 
O$S(VAL "1")5"UN CORREDOR LLEVA A 


L NORTE Y UNAPUERTA AL ESTE. 


"+("UNA ESCALERA VA 

A LA TRAMPILLA.” AND PEEK VAL ” 
60101”) 

1002 LET NO=VAL "2": 
» hs mn 

1004 IF O(R) THEN LET FLUG=VAL 
." h Y ” 

1005 IF O(R) THEN GO TO VAL 
00 » 

1008 GO SUR VAL 
1010 GO SUB VAL 
L "1030" 

1016 PRINT AT VAL 


LET EA=VAL 


” 87 


"8020" 


"1016": GO TO VA 


2”. WAR di O Mel Mi 


1017 FOR N=VAL 
IF J(N)=VAL "1" 


*.1 TO VAL "103 
THEN NEXT N: GO 


TO VAL "5000" 
1018 LET C=VAL "0": FOR N=VAL "6 
0000” TO VAL "60017": IF FEEK N 
THEN LET C=C+VAL "1”:z NEXT N2z L 
ET OBJ=C: GO TO VAL "1020" 
1019 NEXT Mz LET OBJ=C 
1020 GO SUB VAL "9000" 
1021 OVER VAL "0": FOR N=VAL "8" 
TO VAL "12": PRINT AT N,VAL "o" 
, 
" NEXT N:z FOR N=VAL "13" TO Y 
AL "20": PRINT AT N,VAL "0"3” 
"2: NEXT N 
1022 PRINT AT VAL "8",VAL "0"; 
1023 LET GH=VAL "o" 
1023 RETURN 
1050 IF O(R)<>VAL "1" AND OBJ<VA 


L "9" AND NOT PEEK VAL ”£0000” A 
ND NOT PEEK 640101 AND (C$="COGE 
LA ESCALERA" OR C$="COGE LA ESCA 
LERA ROTA") THEN PRINT ?*"TU CO 
GES LA ESCALERA”: GO SUB 80530: P 
OKE VAL "60000",VAL "1": LET O$( 
VAL *1*)="": 60 TO VAL "1010" 
1051 IF C$="7" AND PEEK VAL "601 
01” THEN GO TO VAL "1800" 
1070 IF C$="SUBE POR LA ESCALERA 
" AND PEEK VAL "460100" AND PEEK 
VAL “60000” THEN PRINT "SUBES P 
OR LA ESCALERA”: 1F NOT PEEK VAL 
"£0101" THEN POKE VAL "60000", 
VAL "0": RESTORE VAL "9500": FOR 
N=VAL "i” TO VAL "24": READ COD 
Ez PRINT CHR*$ CODE: NEXT N:z PRI 
NT ".": PRINT : FOR N=VAL ”"1" TO 
VAL "21": READ CODE: PRINT CHR$ 
CODE5: NEXT N: POKE VAL "£0101" 


GQ O O 20 


4 rl qu pe PT Qu rr y qt 


MANI 


eu 


A a 


GA ma rn y a AI E | AAA Y 1 


AAA mmm 


O 


O 


O 


O 


pati 


(¿VAL "1": FOR N=VAL "1" TO VAL " 

99": NEXT Nz GO TO VAL "1800" 

1072 IF C$="SUBE POR LA ESCALERA 

¿"AND (NOT PEEK VAL "60000" OR N 

OT PEEK VAL "£0100") THEN PRINT 
"NO PUEDES SUBIR POR UNA ESCALE 

RAROTA”: GO TO VAL "1010" 

1075 IF C$="COGE LA MESA" THEN 

' PRINT "LA MESA ES DEMASIADO PESA 

DA": GO TO VAL "1010" 

1088 IF C$="COGE LA ESCALERA" AN 

D FEEK VAL "60101" THEN PRINT " 

NO PUEDES COGERLA OTRA VEZ. NO 

' TE PREOCUPES, NO LA NECESITARAS. 


"¿ GO TO VAL "1010" 
1089 GO SUB VAL "9100": IF NOT 6 
H THEN GO TO VAL "1010” 
1099 GO SUB VAL "9300": GO TO VA 
¡EL "toro" 
1100 LET O=2: GO SUB VAL "8000": 
' LET OR=VAL "2": PRINT  INK VAL " 


23 "ESTAS EN UNA PEQUENA OFICINA 
: HAY UN EXTRANO OLOR A PESCAD 
0. "s5O0$(VAL "2")35"TIENES SALIDA 


¡5 AL SUR Y AL OESTE” 

: 1102 LET SO=VAL "1": LET WE=VAL 
"4 ” 

(3104 IF O(R) THEN, LET FLUG=WAL 
" yl ” 

(1105 IF O(R) THEN (GO TO VAL "87 
00 na 

'1108 GO SUB VAL "8020" 

¡1110 GO SUB VAL "1016" 

¡1120 IF O(R)<>VAL "2" AND NOT FE 

¡EK VAL "£0001” AND OBJ¿VAL "9” A 
ND C$="COGE El PEGAMENTO” THEN 


FRINT "TU COGES EL FEGAMENTO.”: 
GO SUB 8050: LET O$S(VAL "2)="": 


POKE VAL "60001",VAL "1": 60 TO 
VAL "1110" 
1130 IF C$="S0S" THEN PRINT "ES 


'E PEGAMENTO TE SERA MUY UTIL.": 


¿60 TO VAL "1110" 

¿1160 GO SUB VAL "9100": IF NOT G 

¿¡H THEN GO TO VAL "i110"” 

¿11799 GO SUB VAL "9300”: GOD TO VA 
EL “EInigs 

¿1200 LET 0=5: GO SUB VAL "8000": 
LET R=VAL "3": PRINT  INK VAL ” 


¿(3"5"ESTAS EN UN COMPARTIMIENTO 
PINTADO DE ROJO. 
"508(5)3 "HAY FUERTAS EN EL O 


ESTE, SUR Y NORTE. UNAS ESCALER 
¡ AS SUBEN, PERO NO PARECEN MUY 
SEGURAS. "” 


- 1220 


1202 
ys RE 
1204 
gis 

1205 
910 »” 

1208 
1210 


LET NO=VAL "5": 
LET SO=VAL "6" 
IF O(R) THEN LET FLUG=VAL 


LET WE=VAL 


IF O(R) THEN GO TO VAL ”*87 
GO SUB VAL "8020" 
GO SUB VAL "1016" 
IF O(R)<>VAL "5" AND NOT PE 
EK VAL "60004" AND OBJ<VAL "9" A 
ND C$="COGE LA CERILLA" THEN PR 
INT "TU COGES LA CERILLA.": 60 S 
UB 8050: POKE VAL "£50004",VAL "1 
": LET 0$(5)="": GO TO VAL "i210 
1260 IF C$="7" THEN IF RND>VAL 
"”,7" OR PEEK VAL "60010" THEN P 
RINT ””HAS TENIDO SUERTE DE CONS 
EGUIRLO"”: FOR N=VAL "1" TO VAL " 
99": NEXT Nz GO TO VAL "1600" 
1270 IF Cé="7" THEN PRINT **LAS 
ESCALERAS SE HAN DERRUMBADO. EL 
ORDENADOR HA OLVIDADO TODO TUPAS 
ADO Y HAS PERDIDO TODOS TUS  0BJ 
ETOS.": FOR N=VAL "60000" TO VAL 
"50199": POKE N,VAL "0": NEXT N 
: GO SUB VAL "20": LET OBJ=VAL " 
0": GD TO VAL "1210" 
1275 IF C$="S0S" THEN PRINT "NE 
CESITAS UN POCO DE MAGIA PARA SU 
BIR LAS ESCALERAS.”: GO TO VAL ” 
1210” 
1280760 SUB VAL 
THEN GO TO VAL 
1279 GO SUB VAL 
L “IZLO” 
1300 LET 0QO=6: 
SUB 8000: PRINT 
EDOR. 
S: ESTE Y NORTE." 


"9100": IF NOT GH 
"210" 
"9300": GO TO VA 
LET R=4: CLS : GO 
"ESTAS EN UN COM 
"50$(6)5 "SALIDA 


1302 LET EA=VAL "2": LET NO=VAL 
. 8 ” 

1304 IF O(R) THEN LET FLUG=VAL 
” i ”" 

1305 IF O(R) THEN 60 TO VAL *87 
00 $.” 

1308 GO SUB VAL "8020" 

1310 GO SUB VAL "1016” 

1320 IF O(R)<>VAL "6" AND NOT PE 
EK VAL "40005" AND OBJ<VAL ”9" A 


ND C$="COGE LA CAJA DE CERILLAS" 
THEN  PRINT "COGES LA CAJA DE C 
ERILLAS": GO SUB 8050: POKE VAL 
"50005", VAL "1": LET OS(VAL 6”) 
GO TO VAL "1310" 


6 q eo O 


oO 0 03% 


¡ 11390 GO SUB VAL "9100": IF NOT G | "2"5"ESTAS EN UNA GRAN HABITACIO i 
É O "Ho THEN GO TO VAL "1310" N CUYA UNICA SALIDA ES HACIA | O 
a 1399 GO SUB VAL "9300": GO TO VA | ABAJOHAY UNA CHIMENEA EN LA PARE | 
O ¡L "110" D, CONCARBON EN EL FUEGO. | O 
: ¡1400 LET 0=9: GO SUB VAL "8000": 708 (VAL "13) | 
| o | LET OR=VAL, "5": PRINT INK VAL "| 1601 IF PEEK VAL "60103" THEN F¡ y 
: 'S5"3 "ESTAS EN UN FASILLO MUY LARG | RINT "UN PANEL ABIERTO CONDUCE A ¡ 
i OC. PUEDES IR AL NORTE Y AL SUR. [L ESTE” 
O OS (YAL 9") 1602 IF PEEK VAL "60103" THEN L ¡O 
4 1 1402 LET SO=VAL "3": LET NO=VAL | ET EA=VAL "13" 
¡ as "ups 16404 IF O(R) THEN LET FLUG=VAL 10 
¿ 111404 1F O(R) THEN LET FLUG=VAL | "1" 
; grrr 1605 IF O(R) THEN GO TO VAL "87 
4 11405 IF O(R) THEN GO TO VAL "87 | 00" O 
| 00” 1408 GO SUB VAL "8020" 
4 O | 1408 GO SUB VAL "8020" 1610 GO SUB VAL "1016" ¡O 
¡ 1410 GO SUB VAL "1016" 1625 IF (C$="E" OR C$="ESTE") AN: 
O ' 1415 IF O(R)<>VAL "9" AND NOT FE [D PEEK VAL "60102" THEN G0 TO V ¡O 
EEK VAL "60008" AND OBJ<VAL "9" A | AL "2200" | 
'ND C$="COGE EL MARTILLO" THEN F | 1630 IF C$="6" THEN PRINT "BAJA 
O RINT ”TU COGES EL MARTILLO.": GO | S. AFORTUNADAMENTE LAS EscA 1 O 
¡SUB 8050: POKE VAL "60008",VAL | LERAS RESISTEN ESTA VEZ.": FOR N 
O ' "1": LET OS(VAL "9")="": GO TO V | =VAL "1" TO VAL "99": NEXT Nz GO ¡ O 
¡ AL "1410" TO VAL "1200" 
O ! 1430 GO SUB VAL "9100": IF NOT 6 [1640 1F (C$="E" OR C$="ESTE") AN | y 
¡HO THEN GO TO VAL "1410” D PEEK VAL "60103" THEN GO TO V 
| 1499 GO SUE VAL "9300": GO TO VA |AL "2200" 
OE "1410" 1650 IF D(R)<>VAL "13" AND NOT FP ¡O 
' 4500 LET 0=4: GO SUB VAL "8000": [EEK VAL "60012" AND OBJ<VAL "9", 
O | LET R=VAL "6": PRINT  INK VAL " [AND (C$="COGE LA RADIO") THEN P O 
| 9"3 "ESTAS EN UNA COCINA. EL TECH |RINT "COGES LA RADIO.”: GO SUB 8 | 
'O ESTA LLENO DE TELARANAS. 050: LET O$(VAL "13")=""z POKE V ; 
O "50$(4)3 "LAS SALIDAS SON EST | AL "40012”,VAL "1": GO TO VAL "1 ; O 
¡E Y NORTE." 610" 
O ¡1502 LET NO=YAL "3": LET EA=VAL [1689 FOKE VAL *"60102",VAL "113 6 1 O 
o E O SUB VAL "9100": IF NOT GH THEN, 
O 1504 IF O(R) THEN LET FLUG=VYAL GO TO VAL "1610" 0 
pas 16499 GO SUB VAL "9300": GO TO VA ; 
¡1505 IF O(R) THEN GO TO VAL "87 |[L "1610” | 
O 100" 1700 LET 0=7: GO SUB VAL "8o00": | O 
1508 GO SUB VAL "8020" LET R=VAL "8": FRINT  INK VAL "” 
O / 1510 GO SUB VAL "1016" 3"3"ESTAS EN LA SALA DE BILLAR. ¡O 
¡1540 IF O(R)<>VAL "4" AND NOT FE EN MEDIO HAY UNA MESA DE BIL ¡ 
Ú O | EK VAL "60003" AND OBJ<VAL "9" A | LAR. "30$(7)5 "SALIDAS: SUR, NORTE | y 
4 'ND C$="COGE EL CUCHILLO" THEN F|, OESTE.” | 
le | RINT “TU COGES EL CUCHILLO." 60 | 1702 LET SO=VAL "4": LET WE=VAL, 
lb O 1 SUB 8050: POKE VAL "60003",VAL | "14": LET NO=VAL "15" ¡ O 
' 919; LET OS(VAL "4")="": 60 TO Y | 1704 IF O(R) THEN LET FLUG=WAL 
¿ O ¡AL “1510" ES 0 
Ñ ' 1550 GO SUB VAL "9100": IF NOT 6 | 1705 IF O(R) THEN GO TO VAL "87 
il O ¡ HOTHEN_ GO TO VAL "1510" 00” 0 
má 1599 GO SUB VAL "9300": 50 TO VA | 1708 GO SUB VAL "S020" 
Il ide PIDIO" 1710 GO SUB VAL "1016" 
1 O 1 1600 LET Q=13: GO SUB VAL "8000" | 1720 IF D(RI<>VAL 17" AND NOT FE ¡ O 
i La LET R=VAL "7": PRINT  INK VAL | Ek VAL "0006" AND OBJ*9 AND C$= 
ll 
po? 


rn ra 


E 


£ 


Go a 


O 


O 


0) 


O 


"COGE LA FELOTA” THEN FRINT "CO 
GES LA FELOTA.": GO SUB 8050: LE 
TY OSLVAL *7)="": POKE VAL "6000 
6% AL "1% 60 TO VAL "1710" 


1725 IF C$="COGE LA MESA" OR C$= 
”»COGE LA MESA DE BILLAR” THEN P 


RINT "ES DEMASIADO PESADA.": GO 

FO VAL “710 

1770 60 SUB VAL "9100": IF NOT 6 
H THEN GO TO VAL "1710" 

1780 GO SUB VAL "9300": GO TO VA 
L "1710" 

1800 LET 0=0: GO SUB VAL "8000": 
FOR N=VAL "1" TO VAL "10": IF J 
(N)=VAL "1" THEN NEXT N: GO TO 
VAL. "SG00” 

1801 LET R=VAL "9": PQUSE VAL “1 
00": FRINT  INK VAL "4"3"VAS A U 


NA DIMINUTA HABITACION. UNA GRA 
N PUERTA DE HIERRO IMPIDEEL PASO 
AL ESTE. ESTA "+("CERRADA" AND 
NOT PEEK VAL "60104")+("ABIERTA" 
AND PEEK VAL "60104")+". EN LA 
PARED HAY UNA TABLILLA DE ORO C 


ON DIEZ AGUJEROS. ES LA TABLI 
LLA DE LAS JOYAS." 
1802 IF FEEK VAL "60104" THEN. L 


ET EA=VAL "10” 


1804 IF O(R) THEN LET FLUG=VAL 
dis ME 
1805 IF O(R) THEN (GO TO VAL de= rá 
Que 
1808 60 SUB VAL "8020" 
18910 GO SUB VAL "1016” 
1820 IF C$="COGE LA TABLILLA" TH 
EN FRINT "ESTA CLAVADA A LA PAR 
ED"* 60 TO VAL "1810” 

1830 IF Cs$="ABRE LA FUERTA” AND 
NOT FEEK VAL "60104" AND FEEK VA 
L "60002" THEN FRINT "ABRES LA 
FUERTA.”": FRINT "SE ABRE.” 

= FOKE VAL "60104",VAL "1": GO 
TO: VAL "18:10" 

1835 1F 03="06" THEN 60 TG MAL 
000" 

1840 IF (C$="E"” OR Cs$="ESTE")> AN 
D FEEKE VAL "40104" THEN GO TO Y 
8 "1900" 

1850 1F (C$="E" OR C$="ESTE”) AN 
D NOT FEEKE VAL "60104" THEN FRI 
NT "LA FUERTA ESTA CERRADA eS 
GO TO VAL "1810" 


1859 LET F=0 
1860 IF C$="COLOCA LA JOYA” OR € 
$="COLOCA LAS JOYAS" THEN LET F 


FOR N=VAL "60020" TO V 
AL "50029": IF PEEK N THEN FRIN 
T JS(N-VAL "60019")3":": PRINT " 
COLOCADO EN LA TABLILLA.": FOR T 
=VAL *1* TO VAL "150%: NEXT Te EP 
OKE N,VAL "0": LET J(N-VAL "6001 
S9"3=WAL. “1%: CLS * LET P=VAL. “1” 
: NEXT N: GO TO VAL "1800" 
1870 NEXT Nz IF F=VAL "1" 

GO TO VAL "1800" 

1887 GO SUB VAL "9100": 

H THEN (GO TO VAL "1810" 
1899 GO SUB VAL "9300": 

L "IB10" 

1900 LET 0=0: GO SUB VAL 
LET R=VAL "10": PRINT 
"5"5"ESTAS EN UNA CARCEL 

"+(R$(VAL "1") AND NOT PEEK 
VAL "6£0021")” "SALIDAS HACIA EL 
ESTE Y EL OESTE.” 
1902 LET EA=VAL "16": 
"39" 
1904 IF 
a 
1905 
00" 
1708 
1910 60 
1920 1F 
IMRARABAI”? : 
R UN ANAGRAMA DE ESO.": 
L "1210" 
1925 IF JFLAGZ 
1960" 
1930 RESTORE VAL "9540": LET X*$= 
FOR N=VAL "1" TO VAL "11%: R 
EAD POKE: LET X$=X$+CHR$ POKFE: N 
EXT N 
1935 IF C$=X$ THEN PRINT "TU VE 
S LA "3: RESTORE VAL "9550": FOR 
N=VAL "1" TO VAL "9": READ RND: 
FRINT CHR$ RND;:z22 NEXT N: PRINT 
» COLGANDO DELTECHO.”": GO TO VA 
L "1910" 
1940 LET S=VAL 
"9": GO SUR VAL 
1950 IF C$="COGE LA 
RINT "COGES LA "53X*$: POKE VAL "6 
0021%,VAL. "1": LET JFLAGZSWAL. "1 
"2 LET R$S(VAL "1")="": GO TO VAL 
PITO 
1960 IF C$="S" OR C$="SUR" 
GO TO VAL "2700" 
1970 IF C$="E" OR C$="ESTE" 
GO TO VAL "2500" 


=YAL "0": 


THEN 
IF NOT G 
GO TO VA 


"8000": 
INK VAL 


LET WE=VAL 


O(R) THEN LET FLUG=VAL 


IF O(R) THEN (GO TO VAL "87 


SUB VAL "BO020” 
SUB VAL "1016" 
C$="S0S" THEN PRINT ""R 
EL COMANDO DEBE SE 
GO TO VA 


GO 


THEN GO TO VAL ” 


"2550"4 G=VAL 


"9900" 
"+X$ THEN P 


LET 


THEN 


THEN 


oo O 


O 


O 0 Qe Oo oo 04%0O 6 6 O O O Q 
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Í 
i 


O e e 
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1980 IF C$="0D" OR C$="DESTE" THE 
N GO TO VAL "1800" 

1984 IF C$="CIERRA LA PUERTA” AN 
D PEEK VAL "60002" AND PEEK VAL 

"50104" THEN PRINT "TU CIERRAS 

LA PUERTA. ": POKE VAL "60104",VA 
L. "0" 60 TD VAL "1710" 

1989 GO SUB VAL "9100": 

H THEN (GO TO VAL "1910" 
1999 GO SUB VAL "9300": 

L "1910* 

2000 LET Q=8: GO SUB VAL 
LET R=VAL "11": PRINT  INK VAL 
"»9"5"ESTAS EN UN ESTUDIO. TIENES 

SALIDAS EN LAS 4 DIRECCIONE 


TF 'MDT 6B 
GO TO VA 


"8000": 


S. "50$(8) 

2002 LET NO=VAL "21": LET SO=VAL 
"5%: LET EA=VAL "20": LET WE=VA 

¡a ”n 22 ” 


2004 IF O(R) THEN LET FLUG=VAL 
Lidia ME : 
O(R) THEN GO TO VAL "87 


20035 IF 

00 ” 

2008 GO SUB VAL "8020" 

2010 GO SUB VAL "1016” 

2020 IF NOT PEEK VAL "60007" AND 
OBJ<VAL "9" AND O(R)<>VAL "8" A 


ND (C$="COGE LA LUFA") THEN PRI 
NT "COGES LA LUPA.”": GO SUB 2050 


2 LET O$(VAL "8")="":* FPOKE VAL ” 

60007", VAL "1": GO TO VAL "2010" 

2070 GO SUB VAL "29100": IF NOT G 

H THEN -GO TO VAL "2010” 

2099 GO SUB VAL "9300": 60 TO VA 
L "20106" 

2100 LET 0=3: GO SUB VAL "8000": 
LET R=VAL "12": PRINT INK VAL 


"2"; "ESTAS EN UNA HABITACION QUE 
OBVIAMENTE HA SIDO UN ALMAC 


EN. —"3O$(VAL "3")5"EN MEDIO DE 
LA HABITACION HAY UNA LOSA DE 
PIEDRA "+("ROTA" AND PEEK VAL "6 


0105")+("GRANDE” AND NOT PEEK VA 
L "60105"): PRINT  INK VAL "2"3"” 
LA UNICA SALIDA ES OESTE.” 

2102 LET WE=VAL "6" 


2104 IF O(R) THEN LET FLUG=VAL 
” E ” 

2105 IF O(R) THEN GD TO VAL "87 
00 » 

2108 GO SUB VAL "8020" 

2110 GO SUB VAL "1016" 

2120 IF C$="S05" THEN PRINT "HA 
Y UN MENSAJE EN LA LOSA, PERO ES 


DEMASIADO PEQUENO PARA LEERLO": 


GO TO VAL "2110" 
2130 IF O(R)<>VAL "3" AND NOT PE 
EK VAL "60002" AND OBJ<VAL "9" A 


ND (C$="COGE LA LLAVE” OR C$="C0 
GE LA LLAVE DE HIERRO”) THEN PR 
INT "COGES LA LLAVE.": GO SUB 80 
50: LET OS$(VAL "3")="":z POKE VAL 
"50002",VAL "1": 6D TO VAL “211 
yg" 
2150 LET S=VAL 
"4%: GO SUB VAL 
2160 IF C$="USA LA 
STORE VAL "9570":2 
AJE DICE: 
R N=VAL "1” TO VAL "13": READ PE 
EK:z PRINT CHR$ PEEK5: NEXT N:z PR 
INT "*"s 60 TO VAL "2110" 
2165 RESTORE VAL "9370": 
»"z FOR N=VAL "i" TO VAL 
EAD Xz LET X$=X$+CHR$ X: 
2166 IF C$=X$ AND PEEK VAL "6000 
8” THEN RESTORE VAL "9580": PRI 
NT "ROMPES LA ROCA. ":z POKE VAL ” 
60105*, VAL, "1" PRINT "VES EL *3 
JG$H(VAL "1"): GO TO VAL "2110" 
2167 1F C$=X$ THEN PRINT "NO TI 
ENES CON QUE ROMPERLA.”: GO TO Y 
AL "2110” 
2170 IF NOT PEEK VAL "60020" AND 
C$="COGE EL "+J$(VAL "1", TO VA 
L "4") AND PEEK VAL "60105" THEN 


"9560": LET G=VAL 
"9900" 

“+X$ THEN RE 
PRINT "EL MENS 


255 FO 


LET X*$= 
"13": R 
NEXT N 


PRINT "TU COGES EL "3J$(VAL "1 
")s POKE VAL "£0020",VAL "1": GO 
TO VAL "2110” 
2190 GO SUB VAL "9100": IF NOT G 
H THEN (GO TO VAL "2110" 
2199 GO SUB VAL "9300": GD TO VA 
L. “Z1LO” 
2200 LET (Q=0: GO SUB VAL ”8000": 
LET R=VAL "13": FOR N=VAL *i"” T 
O VAL "100": NEXT Nz PRINT  INK 


VAL "1"53”ESTAS EN UNA TETRICA CA 
MARA MORTUORIA. LAS SALIDAS 
LLEVAN AL OESTE Y AL SUR. HAY U 
N ATAUD CON UN MENSAJE QUE 
DICE: ”AQUI ESTA EL "¿J$(VAL ” 
4")”” Y EL CONDEDRACULA. NO ABRA 
S EL ATAUD SIN ESTAR PREPARADO. 
2202 LET SO=VAL 
” Fl ” 
2204 
"”" 1 ” 
22035 
00 ” 


"172 LET WE=WVAL 
IF O(R)> THEN  LET FLUG=VAL 


IF O(R) THEN GO TO VAL "87 
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2208 GO SUB VAL "8020" 

2210 GO SUB VAL "1016" 

2220 1F C$="505" THEN PRINT "DE 

BES MATAR A DRACULA.": GO TO VAL 
mM 22 i 9) ” 

2250 IF NOT PEEK VAL "60106" AND 
C$="ABRE EL ATAUD" THEN PRINT 
"ABRES EL ATAUD. DRACULA SE 
LEVANTA Y PREGUNTA: QUE OCURRE? 
"*» GO SUB VAL "1016": GO TO VAL 
” 9700 ” 

2260 IF NOT PEEK VAL "60023" AND 
C$="COGE EL DIAMANTE" THEN PRI 
NT "TU COGES EL DIAMANTE.": FOKE 


VAL "60023",VAL "1": GO TO VAL 
“2910” 
2289 GO SUB VAL "9100". 1F NOT G 


H THEN 60 TO VAL "2210" 


2299 GO SUB VAL "9300": 60 TO VA 


L "FALLO" 
2300 LET 0=0: 60 SUB VAL "8000": 
LET R=VAL "14": PRINT  INK VAL 


"3"5 "ESTAS EN LA HABITACION DE L 
OS CRIADOS.” 
2302 LET NO=VAL "18": 

.g" 
2304 
" 1 ” 
2305 
00" 
308 
2310 
RINT 
190%) 
2511 60 
2380 GO 
H THEN 
2399 60 
L "2310" 
2400 LET 0=0: GO SUB VAL "8000": 

LET R=VAL "15": PRINT  INK VAL 
"4"; "ESTAS EN EL COMEDOR DE LOS 

CRIADOS. UNA GRIETA EN EL T 
ECHO SUGIERE UNA TRAMPILLA. 
LAS SALIDAS SON ESTE Y SUR. 


LET EA=VAL 


IF O(R) THEN LET FLUG=VAL 


IF O(R) THEN GO TO VAL "87 
SUB VAL "8020" 

PEEK VAL "60107" THEN P 
VAL "5",VAL "O"30$(VAL ” 


GO 
IF 
AT 
SUB VAL "1016” 
SUB VAL "9100": 
GO TO VAL "2310" 
SUB VAL "2300": 


IF NOT 6 


GO TO VA 


"e PRINT (R$(VAL "5") AND PEEK V 

AL "£50108") 

2402 LET EA=VAL "22": LET SO=VAL 
ng" 


2404 1F O(R) THEN LET FLUG=VAL 
£” i ”» 

2405 IF O(R) THEN GO TO VAL "87 
00 ” 

2408 GO SUB VAL "8020" 

2410 GO SUB VAL "1i016” 


2420 IF C$="S05" THEN FPRINT "AR 

AMIXELPEDANA: ESTE ANAGRAMA TEIN 

DICARA COMO PASAR LA TRAMPILLA": 
GO TO VAL "2410" 

2450 LET S=VAL "9595": LET G=VAL 
"16": GO SUB VAL "9900" 


2460 IF C$=X$ THEN PRINT "TU VE 


FOR N=VAL "1" TO VAL "11": 
PRINT CHR$ ASR;: 


GO TO VAL "2410” 


= 
READ ASR: 
Nz PRINT ".": 
2470 LET S=VAL ”7600": 
»15". GO SUB VAL "9900" 
2480 IF C$=X$ THEN PRINT "SILEN 
CIOSAMENTE LA TRAMPILLA SE ABRE. 
UNA ESCALERA BAJA.”: 
£0108",VAL "1": GOD TO VAL "2410” 
2485 IF (0%$="7") AND PEEK VAL "6 


0108" THEN GOD TO VAL "3200” 
2490 GO SUB VAL "9100": IF NOT 6 : 
H THEN (GO TO VAL "2410" 

2499 GO SUB VAL "9300": GO TO VA 
L "2410" 

2500 LET O=10: GO SUB VAL "8000" ; 
: LET R=VAL "16": PRINT  INK VAL 


"9"; "ESTA HABITACION PARECE HAB 
ER 
A. "sO$(VAL "10")5"LA UNICA S 
ALIDA ES AL OESTE." 

2502 LET WE=VAL "10" 

2504 IF O(R) THEN LET FLUG=VAL 
” 1 "” 
Zo09 1F 
00 ” 
2508 G0 
2510 GO 


O(R>) THEN GO TO VAL "87 


SUB VAL "8020" 

SUB VAL "1016" 

2520 IF O(R)<>VAL "16" AND NOT F 
EEK VAL "50009" AND OBJ<VAL "9" 
AND (C0$="COGE LA ESTACA" OR C$=" 


COGE LA ESTACA DE MADERA”) THEN 
PRINT "TU COGES LA ESTACA.": GO 
SUB 8050: LET O$(VAL "10")="": 

POKE VAL "40009",VAL "1": GO TO 

VaL "2510" 

2589 GO SUB VAL "9100": IF NOT G 

H THEN GO TO VAL "2510" 

2593 DATA VAL "68",VAL "69",VAL 


"g3",VAL "69",VAL "78",VAL "86", 
VAL "85",VAL "69",VAL "76",VAL " 
86",VAL "69",VAL "32",VAL "76", V 


AL "65",VAL "32",VAL "77",VAL "7 
9" ,VAL *"77",VAL "73”,VAL "55" 
2599 GO SUB VAL "9300": GO TO VA 
L "2310" 

2600 LET (G=0: GO SUB VAL "8000": 
LET R=VAL "17": PRINT "ESTAS EN 


NEXT | 


LET G=VAL 


POKE VAL " 


SIDO USADA COMO CARPINTERI 
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UNA SALA CON UN COFRE CON CAJO 


NES. SALIDA: NORTE. "z IF PEEK VA 
L "40012" AND NOT PEEK VAL "6012 
O 0" THEN PRINT "TU RADIO EMPIEZA 
A SONAR, SUENA CON MAS FUERZA S 
o - EGUN LA ELEVAS." 
2602 LET NO=VAL "13" 
p 2404 IF O(R) THEN LET FLUG=VAL 
O Mea 
2405 IF O(R) THEN GO TO VAL "87 
O 00” 
2408 GO SUB VAL "8020" 
O 2610 G0 SUB VAL "1016" 
2425 1F (C$="ABRE EL CAJON" OR € 
$="ABRE LOS CAJONES") THEN PRIN 
O TAT18,263"?2": PRINT AT 8,03: FP 
RINT "TU ABRES EL CAJON. ": POKE 
O ' VAL "60107",VAL "1": PRINT ("EN 
EL CAJON HAY UNA LLAVE.” AND NOT 
PEEK VAL "40011"): FOR N=VAL "1 
O 1 TO VAL "99": NEXT N: GO TO VAL 
1 "2510" 
O 2626 IF O(R)<>VAL "12" AND NOT F 
EEK VAL "60011" AND OBJ<VAL "9" 
O | AND C$="COGE LA LLAVE” AND PEEK 
VAL "460107" THEN PRINT "COGES L 
A LLAVE.": GO SUB 8050: LET OBJ= 
O | OBJI+VAL "1": LET OS(VAL "12")="" 
'» POKE VAL "60011",VAL "1": POKE 
O | VAL "60107",VAL "0": GD TO VAL 
: "2510" 
2630 1F C$="S0S" THEN PRINT "VE 
O "A LA HABITACION PROXIMA A LA TA 
-BLILLA DE LAS JOYAS Y TECLEA ”S 
O | 05”. LA RESPUESTA VALE AQUI.": 6 
''Q TO VAL "2610" 
o | 2640 LET S=VAL "9540": LET G=VAL 
11": GO SUB VAL "9900" 
(2450 IF C$=X$ THEN PRINT "TU VE 
O 5 LA "¿I$(VAL "3"): 6D TO VAL "2 
610" 
O | 2660 IF NOT PEEK VAL "60022" AND 
CC c$="COGE LA "+J$(VAL "3", TO VA 
o Lo "5") THEN PRINT "TU COGES LA 
Os IS(VAL "3"): POKE VAL "60120", 
VAL "1": POKE VAL "60022",VAL "1 
O 1": 60 TO VAL "2610" 
| 2689 GO SUB VAL "9100": IF NOT G 
O | H THEN GO TO VAL "2610" 
| 2499 GO SUB VAL "9300": GO TO VA 
LL "2610" 
O 1 2700 LET O=11: GO SUB VAL "8000" 
lO LET R=VAL "18": PRINT  INK VAL 
O | "1"5"ESTAS EN UN CORTO PASILLO. 
'C AL. NORTE HAY UNA PUERTA "+("”C 
24 


ERRADA” AND NOT PEEK VAL "60109" 
)+",": PRINT "AL SUR HAY OTRA PU 
ERTA. "sOo$(11)+t"POR LA 
PUERTA DEL NORTE UNAS ESCALER 
AS BAJAN." AND PEEK VAL "60109") 
2702 LET SO=VAL "14": IF PEEK VA 
L "40109" THEN LET NO=VAL "19" 
2704 IF O(R) THEN LET FLUG=VAL 


41% 

2705 IF O(R) THEN GD TO VAL *87 
00" 

2708 GO SUB VAL 
2710 GO SUB VAL "1016" 

2730 IF O(R)<>VAL "11" AND NOT P 
EEK VAL "60010" AND OBJ<VAL "9" 

AND C$="COGE LA LAMPARA” THEN P 
RINT "COGES LA LAMPARA. ": 
8050: LET OBJ=0BJ+VAL "1": LET 

OS (VAL "11")=""z POKE VAL "60010 
",VAL "1": GO TO VAL "2710" 

2740 IF C$="ABRE LA PUERTA" AND 


"gozo" 


GO SUB ¡ 


PEEK VAL "60011" AND NOT FEEK VA 
L "£0109" THEN PRINT "ABRES LA 
PUERTA. UNAS ESCALERASCONDUCEN A 
BAJO. ": POKE VAL "60109",VAL "1” 
: GO TO VAL "2710" 

2750 IF C$="6" AND PEEK VAL "601 
09" THEN GO TO VAL "2800" 

2789 GO SUB VAL "9100": IF NOT G 
H THEN GO TO VAL "2710" 

2799 GO SUB VAL "9300": GO TO VA + 
EL *ZZTO* 

2800 LET Q0=14: GO SUB VAL "8000" 
: LET R=VAL "19": PRINT — INK VAL 


"2" ¿RS(VAL "2")53"ESTAS EN UNA E 
STRECHA CAVERNA. UNA ESCALERA C 
ONDUCE ARRIBA. "5O$(VAL "14”) 
5 "SALIDAS: NORTE, ESTE, OESTE” 


2802>LET EA=VAL "24":LET NO=VAL 
"25" LET WE=VAL "26" 

2804 IF O(R) THEN LET FLUG=VAL. 

e 

2808 60 SUB VAL "8020" 

2810 60 SUB VAL "1016” 

2820 IF O(R)<>VAL "14” AND NOT P 
EEK VAL "60013" AND OBJ<VAL ”9” 

AND C$="COGE LAS FILAS” AND OBJ< 


YAL "9" THEN PRINT "COGES LAS P 
ILAS.": GO SUB 8050: LET OBJ=0BJ 
+VAL "1": LET OS(VAL "141)="": P 
OKE VAL "60013",VAL "1": GO TOD Y 
AL "2810” 

2860 1F C$="7" THEN GO TO VAL ” 
2700" 


G DD Q 


O 


O 


O 60 


AAA 


ey) 


pro 


Or E 0 


2889 GO SUB VAL "9100": IF NOT G 
H THEN (GO TO VAL "2810" 

2899 GO SUB VAL "9300": GO TO VA 
L "2610" 

27900 LET 0=15: GO SUB VAL "8000" 
: LET R=VAL "20": FPRINT  INK VAL 


CUARTO DE BANO 
CUELGAN DEL TE 
3 "SALIDAS: N 


"3"5"ESTAS EN UN 
. UNAS ARANAS 
CHO. "50$(VAL "15" 
ORTE Y DESTE.* 
2902 LET WE=VAL 

Lisa | ” 

2904 IF D(R) 
pas 

27908 GO 
2910 GO 


"112 LET NO=SWAL. 


THEN LET FLUG=VAL 


SUB VAL "8020" 
SUB VAL "1016" 
2920 IF O(R)<>VAL "13" 
EEK VAL "60014” AND OBJ<VAL "9" 
AND C$="COGE EL TABLON” THEN PR 
INT "COGES EL TABLON.": GO SUB 8 
050: LET OBJ=0BJ+VAL "1": POKE Y 
AL "60014”,VAL "1": LET O$(VAL ” 
15")="""2 60 TO VAL "27910" 
2989 GO SUB VAL "9100": IF NOT G 
H THEN GO TO VAL "2910" 
2999 GO SUB VAL "9300": 
L. "27910% 
3000 LET Q=16: GO SUB VAL "8000" 
s LET R=VAL "21": PRINT INK VAL 
"4"; "ESTAS EN UNA HABITACION CO 
N EL SUELO DE MADERA. ESTA VACI 
A"+("." AND O$(VAL "16")=""): PR 
INT — INK VAL "4";0$(VAL "16")3"L 
AS SALIDAS SON ESTE Y SUR." 
3002 LET SO=VAL "11": LET EA=VAL 
” 20 K”n 
3004 IF O(R) 
” E ” 
3008 GO SUB VAL 
3010 GO SUB VAL "1016" 
3020 IF O(R)<>VAL "16" 
AL "9" AND NOT PEEK VAL 
AND C$="COGE LA ESPADA" 
INT "COGES LA ESPADA.”: GO SUB 8 
050: POKE VAL "60015",VAL "1": L 
ET OBJ=0BJ+VAL "1": LET OS(VAL " 
16")="": GO TO VAL "3010" 
3089 GO SUB VAL "9100": IF NOT 6 
H THEN GO TO VAL "3010" 
3099 GO SUB VAL "9300": 
la A 
3100 LET Q=17: GO SUB VAL "8000" 
: LET R=VAL "22": PRINT  INK VAL 
"3"5 "ESTAS EN UN PASILLO QUE VA 
DEL ESTE AL OESTE. 


AND NOT FP 


GO TO VA 


THEN LET FLUG=VAL 
"go20" 
AND OBJI<V 


"50015" 
THEN FR 


GO TO VA 


"35O$(VAL "17") 
3102 LET EA=VAL "11": LET WE=VAL 
si MJ 

3104 IF O(R) THEN LET FLUG=VAL 
$19. 08 

3108 GO SUE VAL "8020" 

3110 60 SUB VAL "1016" 

3120 IF O(R)<>VAL "17" AND OBJ<V 


AL "9" AND NOT PEEK VAL "£0016” 
AND C$="COGE LA LINTERNA" THEN 
PRINT "COGES LA LINTERNA.": GO S 
UB 8050: FOKE VAL "£0016",VAL "1 
": LET OBJ=0BJ+VAL "1": 
AL "17")=""z GO TO VAL 
3189 GO SUB VAL "9100": 
H THEN GO TO VAL "3110" 
3199 GO SUB VAL "9300": 
LL “RLLOS 
3200 LET Q=0: 60 SUB VAL 
LET R=VAL "23": PRINT  INK VAL 
"2"5"ESTAS EN UN ATICO. LA UNICA 
SALIDA ES HACIA ABAJO. 
HAY UN PROFUNDO AGUJERO EN 
CENTRO DE LA HABITACION. 
"5RS(VAL "3") 
3204 IF O(R) THEN LET FLUG=VAL 
ci UL 
3208 GO 
3210 GO 
3220 IF 
2400" 
3225. 1F 
FRINT 
O TO VAL "3210" 
3230 LET S=VAL 
"16": GO SUB VAL 
X$ THEN LET R$(VAL 
S=VAL "9615": POKE VAL 
VAL "1": LET G=VAL "16": 
VAL "9900": PRINT 
.": FOR N=VAL "1" TO VAL 
NEXT N: PRINT ("EN EL CAMINO 
$+”." AND NOT PEEK VAL "60024"): 
FOKE VAL "60024"”,VAL "1": FOR N 
=VAL "1" TO VAL "99": NEXT N: 
T S=VAL "9620": LET G=VAL "23": 
GO SUB VAL "9900": PRINT X$5".": 
FOR N=VAL "1" TO VAL "99%: 
Nz GO TO VAL "3300" 
3289 GO SUB VAL "9100": 
H THEN GO TO VAL "3210" 
3299 GO SUB VAL "9300": 
Ll "FLO 
3300 LET Q=0: 
LET R=VAL "24": 


"3110" 
IF NOT G 


GO TO VA 


"8000": 


EL 


SUB VAL 
SUB VAL 
C$= n 6 . 


"8020" 
"1016" 


C$="COGE EL OPALO" THEN 


"2610": 
"9900": 


paid) Ma 


IF C$= 


"s0109", 
60 SUB 


” 100": 


GO SUR VAL "8000": 


PRINT 


NEXT ; 


LET O$S(V | 


THEN (GO TO VAL " 


"NO PUEDO ALCANZARLO.": G 
LET G=VAL 


LEFT 


"ESTAS CAYENDO : 


"Xx 


LE , 


IF NOT G 


GO TO VA 


"ESTAS EN + 


Oo Q é 


mm” > 


a 


Ein ces a A LAIR ALA LIO AAA AAA PA CU IA A mI IAS, e 


lf= 


A a 


UNA HUMEDA CAVERNA. VES UN C (LS : LET SO=19: LET R=25: GO SUB 


OLCHON. SALIDAS: 8000: PRINT "ESTAS EN UNA GRAN  ; O 
ESTE "+(" (TAPADA POR ARENA)" AN | CAVERNA. ESTA ATRAVESADA PO ¡ 
D NOT PEEK VAL "60110")+(" (TAPAD R UNA SIMA APARENTEMENTE INSA ¡ 
A POR ROCAS)" AND PEEK VAL "6011 | LVABLE. "+(R$(VAL "4") AND : O 
O" AND NOT PEEK VAL "é0111"): PR PEEK VAL "60114"): PRINT "SALID 
INT "Y OESTE." A"+("S" AND PEEK VAL "60114")+": : O 
3302 LET WE=VAL "19": IF PEEK VA SUR"+(" Y NORTE" AND PEEK VAL ” 
L "go111" THEN LET EA=VAL "27" 60114”) 
3304 IF O(R) THEN LET FLUG=VAL 3407 IF PEEK 60114 THEN LET NO= | O 
"” 1 ” 28 l 
3305 IF O(R) THEN GOD TO VAL "87 | 3408 LET 50=19: GO SUB VAL "8020! O 
00 ” ” , 
3308 GO SUB VAL "8020" 3410 GO SUB VAL "1016" O 
3310 GO SUB VAL "1016" 3412 1F C$="S05" THEN PRINT "US: 
3315 IF C$="COGE EL COLCHON” THE | A TU MATERIA GRIS.": GO TO VAL ” 
N  PRINT "NO PUEDES COGER EL COL | 3410" O 
CHON.": GO TO VAL "3310" 3415 IF C$="ENCIENDE LA LINTERNA . 
3330 1F (C$="E" OR C$="ESTE"”) AN | " AND NOT PEEK VAL "60016" THEN O 
D (NOT PEEK VAL "40110" OR NOT FP PRINT "NO LA LLEVAS ENCIMA.”: G: 
EEK VAL "60111") THEN PRINT "EL | O TO VAL "3410" O 
CAMINO ESTA BLOQUEADO. ": GO TO 3420 IF C$="ENCIENDE LA LINTERNA , 
VAL "3310" " AND NOT PEEK VAL "60113" THEN | 


3340 LET S=VAL "9625": LET G=VAL PRINT "INTENTAS ENCENDER LA LIN O 
"4": GO SUB VAL "9900": IF C$=X | TERNA PERO NADA OCURRE.”: GO T 


$ AND PEEK VAL "40015" THEN FRI|O VAL "3410" Ta 
NT "TRAS UN DURO TRABAJO QUITAS 3430 LET S=VAL "9630": LET G=VAL ; 
LA ARENA. ": POKE VAL "60110",VA "13": GO SUB VAL "9900": IF Cé=, 0) 
L "1%: FOR N=VYAL "1” TO VAL "99" | X$ AND PEEK VAL "50013" AND PEEK 

= NEXT N:z GO TO VAL "3300" VAL "60016" THEN PRINT "0O.K.”: 


(3350 IF C$="ROMPE LAS ROCAS” AND POKE VAL "60113",VAL "1": GD TO: O 
PEEK VAL "50008" THEN PRINT "L VAL "3400" 
AS ROCAS HAN SIDO DESTRUIDAS.": 3440 LET S=VAL "9640": LET G=VAL : y 


: POKE VAL "60111",VAL "1": FOR N= "13": GO SUB VAL "2900": IF C$= 
VAL "1" TO VAL "99": NEXT N:z GO X$ AND PEEK VAL "40014" AND PEEK 
TO VAL "3300" VAL "60112” THEN PRINT "LO COL ' O 


3360 IF (C$="E" OR C$="ESTE") AN | OCAS EN POSICION."”: POKE VAL "60 : 
'D PEEK VAL "60111" THEN GO TO V| 114”,VAL "1": POKE 60014,0: FOR | O 


AL "3600" =VAL "1” TO VAL "99": NEXT N: G; 
3389 GO SUB VAL "9100": IF NOT G | O TO VAL "3400" O 
¿H THEN (GO TO VAL "3310" 3450 IF C$="ENCIENDE LA LINTERNA : 
3399 GO SUB VAL "9300": GO TO VA | " AND PEEK VAL »£0013" THEN PRI 

LL "330" NT "LA LINTERNA SE ENCIENDE.": P O 


3400 LET 0=0: IF NOT PEEK 60112 OKE VAL "60112",VAL "1": FOR N=V : 
THEN GO SUB VAL "8000": LET R=V | AL "1" TO VAL "99": NEXT Ns 60 T: O 
AL "25"2 IF NOT PEEK VAL "60112" | O VAL "3400" 

THEN PRINT "TODO ESTA OSCURD. 3470 IF (C$="N" OR C$="NORTE") A; y 


NO SE PUEDE VER NADA. " ND PEEK VAL "60114" THEN GOD TO 
3402 LET SO=VAL "19": IF PEEK VA | VAL "3700" 
L "60112" THEN LET NO=VAL "28" 3489 GO SUB VAL "9100": IF NOT G: O | 
3404 1F O(R) THEN LET FLUG=VAL H THEN GO TO VAL "3410" | 
n3u 3499 GO SUB VAL "9300": GO TO VA: O 
3405 IF O(R) THEN GO TO VAL "87 | L "3410" ] 
00" 3500 LET Q=0: GO SUB VAL "8B000"z | 

| 


3406 IF PEEK VAL "40112" THEN C LET R=VAL "26": PRINT  INK VAL: O 


AD Y id pc pd o 0 Y m1 + 


PAYO VAINA) ANO Md A o Jr Fu 


'L "60113" 
¿3504 IF O(R) 


"13"5"ESTAS EN UNA GRAN CAVERNA £ 
ON ESTALACTITAS COLGANDO DEL T 
ECHO. SALIDAS: NORTE Y ESTE. 
"s IF NOT PEEK VAL "601 

15" THEN FRINT "HAY UN GRAN DRA 
GON BLOGQUEANDO ELNORTE. LLEVA UN 
ABRIGO." 
33901 IF PEEK 
RINT "HAY UN 
DE LASALIDA 
UN ABRIGO 
De 

3502 LET EA=VAL "19": IF FEEK VA 
THEN LET NO=VAL "29" 
THEN LET FLUG=VAL 


VAL "60115" THEN F 
DRAGON MUERTO CERCA 
NORTE. LLEVA FUESTO 
CON MUCHOS BOLSILLO 


3508 GO SUB VAL 
3510 GO SUB VAL 


"8020" 
"016" 


3530 IF C$="MATA AL DRAGON" AND 


3540 
' NOT FEEK VAL 


PEEK VAL "60003" THEN PRINT ”?"T 
U MATAS AL PODEROSO DRAGON. CAEM 
UERTO A TUS PIES.”: FOR N=VAL "1 
" TO VAL "100": NEXT Nz FOKE VAL 
"£0115",VAL "1": 60 TO VAL ”350 
o" 
IF C$="MATA AL DRAGON” AND 
"50003" THEN FPRINT 
> "NO TIENES UN ARMA PARA MATARL 


D.": GO TO VAL "3510" 
3550 LET S=VAL "9650": LET G=VAL 
"17": GD SUB VAL "9900" 

3560 IF C$=X$ AND PEEK VAL "6011 
5" AND NOT PEEK VAL "60025" THEN 
PRINT ?"VES EL "s¿J$(VAL "6"): 
PRINT "COGES EL "3J$(VAL "6"): FP 
OKE VAL "60025",VAL "1": 60 TO Y 

AL "3510" 
3570 IF (C$="N" OR C$="NORTE") A 
ND PEEK VAL "60115” THEN GO TO 
VAL "3800" 


3589 GO SUB VAL "9100": IF NOT G 

H THEN (GO TO VAL "3510" 

3599 GO SUB VAL "9300": 

LA SSIO” 

3600 LET 0=18: GO SUB VAL "8000" 

: LET R=VAL "27": PRINT  INK VAL 
"3"; "ESTAS EN UNA CAMARA MORTUO 


GO TO VA 


RIA EGIFCIA. EN MEDIO HAY UN G 
RAN SARCOFAGO. ": FRINT O$(VAL 
1.83 3 


3601 IF PEEK VAL "60116" THEN F 


RINT  INK VAL "4"3"EL SARCOFAGO 
ESTA ABIERTO. DENTRO HAY UN 
A MOMIA." 


rs LU 


3602 LET WE=VAL 


3604 IF O(R) THEN LET FLUG=VAL 
Lido 1 

3605 IF O(R) THEN GO TO VAL "87; 
00" ] 
3608 GO SUB VAL "8020" 

3610 GO SUB VAL "1016" 

3615 IF C$="SOS5" THEN PRINT "QU ' 
E SE SUELE HACER CON LOS RE 
GALOS ? ": GO TO VAL "3610" 
3617 IF O(R)<>VAL "18” AND NOT FP, 
EEK VAL "40017" AND OBJ<VAL "9” 
AND C$="COGE EL ESPEJO” THEN PR 
INT "COGES EL ESPEJO.": GO SUB 8 
050: POKE VAL "£0017",VAL "1": L 
ET OBJ=0BJ+VAL "1": LET OS(VAL " 
19")="": GO TO VAL "3610" 


3630 IF C$="ABRE EL SARCOFAGO" T 


"ABRES EL SARCOFAGO. " 
: FOKE VAL "60116",VAL "1": FOR 
N=VAL "1" TO VAL "99"2z NEXT N: 6 
O TO VAL "3600" 
3640 LET S=VAL "2593": LET G=VAL 
"20": GO SUB VAL "9900" 
3650 IF C$=X$ AND PEEK VAL "6011 
6" THEN  FPRINT "D.K....”: 
VAL "1" TO VAL. "99": NEXT N: 
NT "VES LA "5J$(VAL 
TA DENTRO. ": FOR N=VAL 
AL "99": NEXT Nz FRINT "COGES LA 
"sIS(VAL "7"): POKE VAL "60026" 
» VAL "1"s GO TO VAL "39io” 
3660 IF C$="MATA A LA MOMIA" THE 
N FRINT "LA MOMIA YA ESTA MUERT 
A 1! "1: GO TO VAL "3610” 
3689 GO SUB VAL "29100": 
H THEN (GO TO VAL "3610" 
3699 GO SUB VAL "9300": GO TO VA 
L "3410" ' 

3700 LET 0=0: GO SUB VAL "8000": 
LET R=VAL "28": FRINT  INK VAL 
"2";5"ESTAS EN LO QUE PARECE SER 
UN 
E PIEDRA. HAY UNA BANERA EN E 
E CENTRO.”": PRINT ("ESTA LLEN 
A DE UN ESFESO LIQUIDO NEGRO. ” 
AND NOT PEEK VAL "60117”)5"SALID 

A: SUR.” 

3701 IF FEEK VAL "60117" THEN F 
RINT "LA BANERA ESTA VACIA.": IF 
NOT FEEK VAL "60118" THEN PRIN 
T "EN EL FONDO: "5J$(VAL "8") 
3702 LET SO=VAL "25" 


Ls 
3704 IF O(R) THEN LET FLUG=VAL 
” Y "” 


HEN  PRINT 


A 


PRI 


1" 15 Y 


IF NOT G 


CUARTO DE BANO DE LA EDAD D : 


FOR N= 


ir A > "QUE ES ; 


' 
' 
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E 
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37053 IF O(R) THEN GO TO VAL 

00 ”m 

3708 GO SUB VAL 

3710 GO SUB VAL "1016” 

3730 LET S=VAL "9699": LET G=VAL 
"14": GO SUB VAL "9900" 

3740 IF C$=X*$ AND NOT PEEK VAL ” 

60117" THEN LET S=VAL "9698": L 

ET G=VAL "19": GO SUB VAL "9900" 
: PRINT X$53” VACIANDOSE.”": FOR N 

=VAL "1" TO VAL "99": NEXT N: PO 

KE VAL "60117",VAL "1": GO TO VA 

L "3700" 

37530 IF NOT PEEK VAL "460027" AND 
C$="COGE LA CRUZ” THEN PRINT ” 

COGES LA CRUZ.": POKE VAL "60027 
”, VAL "1": POKE VAL "60118", VAL 
.1%: 60 TO VAL "3710" 

3789 GO SUB VAL "9100": 

H THEN GO TO VAL "23710" 

3799 GO SUB VAL "9300": 

L "3710" 

3800 LET G=0: GO SUB VAL ”8000": 
LET R=VYAL "29": PRINT "ESTAS EN 
UNA HABITACION DE ORDENADO 

RES. HAY UN ZX-SPECTRUM CONECTAD 

O A UN MONITOR. SALIDA: 

SUR. " 

3802 

3804 

” pe ” 

3805 

00" 

3808 

3810 GO 

3820 IF 

RO ANAGRAMA: 


” 87 


”m 8020 ” 


IF NOT 6 


GO TO YA 


LET SO=VAL "26" 
IF O(R) THEN LET FLUS=VAL 
1F 


DO(R) THEN GO TO VAL "87 


GO SUB VAL 
SUB VAL "1016" 

C$="S505" THEN PRINT "OT 
RALATILMAPLANA (3 
PALABRAS).": GO TO VAL "3810" 
3840 LET S=VAL "9693": LET G=WAL 
"16": GO SUB VAL "9900": IF C$= 
X$ THEN LET S=VAL "9674": LET-G 
=VAL£ "26": GO SUB VAL "9900": PR 
INT "PONE:": PRINT "  "3X$3"."”: 

GO TO VAL "3810" 

3850 LET S=VAL "96796": LET G=VAL 
"11": GO SUB VAL "9900": IF Cs$= 
X$ THEN PRINT "0.K.": FOR N=VAL 
21% TO VAL. "50": NEXT Na PREINT 
"DE REPENTE APARECE UNA PIEZA DE 
"sSIS(VAL "10"): PRINT "COGES EL 
"sJ$(VAL "10"): POKE VAL "£0029 

".VAL “1% 60: TO VAL "38109" 

3860 IF C$="COGE EL SPECTRUM” OR 
C$="COGE EL MONITOR” THEN PRIN 

T "SUELTALO ** ES MIO ?!!!”*: 60 7 


” 8020 ” 


O VAL "3810" 

3889 GO SUB VAL "9100": 1F NOT G 
H THEN GO TO VAL "3810" 

3899 GO SUB VAL "9300": GD TO VA 
L "3810" 

5000 CLS 

5001 BORDER 2: PAPER 2: CLS 


5002 PRINT AT 10,95 PAPER 73” 
5010 LET As$=" ENHORAB 
VUENA! HAS RE 
SUELTO LA AVENTURA. LA TABLILLA, 
ACTIVADA FOR LAS DIEZ JOYAS, AB 
RE UN GRAN PANEL SECRETO. 


5011 OVER 1: FOR X=70 TO 193: BE 
EP .005,RND*30: PLOT X,76: DRAW 

((X-70)%2.0731707)-X,772 NEXT X 

5012 FOR X=70 TO 193: BEEP .005, 
RND*30: FLOT X,86: DRAW ((X-70)+% 
2.0731707)-X,-862 NEXT 2 

5013 OVER O 

5019 INK 1: PAPER 7 

5020 GO SUB 3900 

5030 LET A$=" DENTR 


O HAY UN GIGANTESCO TESORO. ..+..+.+- 
FELICIA 


DADES! !!! 
5040 GO SUB 5900 
5050 FOR N=0 TO 69: 
NEXT Nz GO TO 5040 
5900 FOR P=1 TO LEN A$-14 
5901 PRINT AT 10,954$(P TO P+14) 
5902 BEEP .05,RND*3O: NEXT P 
5903 RETURN 
£000 BORDER 1:PAPER 7: CLS 
£001 OVER 1: INK 1: FOR X=0 TO 2 
55: BEEP .005,RND*30: PLOT X,0O: 
DRAW 255-2*X, 175: NEXT Xz FOR Y= 
175 TO O STEP -1: BEEP .005,RNDx* 
30: PLOT 0O,Y: DRAW 255, 175-2*Y: 
NEXT Y: OVER O 
£002 PRINT AT 10,55 FLASH 15 PAP 
ER 23 INK 73"LA CASA DE LA AVENT 
URA"5AT 11,55 INVERSE 13 FLASH 1 
s PAPER 23 INK 753"LA CASA DE LA 
AVENTURA" 
£003 INK O: 
.008,Nz NEXT N:z 
ENTER PARA CONTINUAR. ....”: 
E O: RETURN 
8000 CLS : 
AL "1": LET SO=VAL 
AL "0": LET WE=VAL 


BEEP .005,N: 


FOR N=1 TO 679: BEEP 
PRINT +05 "PULSA 
PAUS 


"O": INK Y 
LET EA=V 


LET NO=VAL 
.Qus 
pa 


O 0 0 0 4 6 0 O Q O € 


OO 6 0 0 0 6 dd 0- 


A A 
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8001 IF (x<>0 THEN 
" THEN LET Q=0 


IF O$(0,1)=" 


8010 PLOT VAL "176",VAL "70": DR 
AW VAL "70",VAL "0": DRAW VAL "O 
", VAL "55": DRAW -VAL "70",VAL 

"0": DRAW VAL "0",VAL "35" 

8012 INK VAL "o" 

8015 RETURN 

8020 LET FLUG=VAL "0": OVER VAL 

"1" FINO THEN PLOT VAL. "2065 
VAL "70": DRAW VAL "10",VAL "o" 

$025 IF SD THEN. PLOT VAL -*206” 
s»VAL "15": DRAW VAL "10",VAL ”O” 
8030 IF EA THEN PLOT VAL "246", 
VAL "36": DRAW VAL "0",VAL "10" 


8035 IF WE THEN PLOT VAL "176", 

VAL "36": DRAW VAL "0"”,VAL "10" 

8036 OVER VAL "0" 

8037 IF O(R) THEN PRINT AT 16,2 

85CHR$ (144+(0(R)-1)3) 

8038 PRINT AT 16,263" 4" 

8039 IF 0<>0 THEN  1F 0O$(Q0,1)<>"” 
" THEN FRINT AT 18,26;CHR$ (14 

3+0) 

8049 RETURN 

8050 FOR N=i16 TO 18: 
1263” "s PRINT AT N, 263%": FO 

R X=1 TO S: NEXT X: NEXT Nz FOR 

N=i8 TO 17 STEP -—i: PRINT AT N,2 

65” ": PRINT AT N-1,263":5 "2 FOR 
X=1 TO 5: NEXT Xz NEXT N 

8060 RETURN 

3070 FOR N=246 TO 28: 
)N-13" "5AT 16,N3":2": FOR X=1 T 

OS: NEXT X: NEXT Nz FOR N=27 TO 
26 STEP —1: PRINT AT 16,N+15(” 


PRINT AT N- 


PRINT AT 16 


" AND N2>27)+(CHR$ (143+(ZX)3) AN 
D N=27)5AT 16,N3":%".2 FOR X=1 TO 
9: NEXT X:z NEXT N 


¡| 8075 PRINT AT 16,28;3CHR$ (143+(Z 


x)3) 
8080 RETURN 


8085 FOR N=26 TO 28: FRINT AT 16 


¿N-15" "¡AT 16,N53" 6": FOR X=1 T 

OS: NEXT X: NEXT N: FOR N=27 TO 
26 STEP -12 PRINT AT 16,N+r13" " 
¿AT 16,N3"4:2:"2: FOR X=1 TO 5: NEX 

TXz NEXT N 

38090 RETURN 

8710 PRINT  INK VAL "5"3 "PUEDES 
VER "3I$(0(R)) 


8733 GO TO VAL 
*(R-VAL "1")) 
8800 DATA "LA ESCALERA", "EL PEGA 


"1008"+(VAL "100" 


': MENTO”, "LA LLAVE(FE)", "EL CUCHIL 


LO", "LA CERILLA", "LA CAJA", "LA P 
ELOTA", "LA LUPA", "EL MARTILLO”, ” 
LA ESTACA", "LA LAMPARA”, "LA LLAV 
E(AU)", "LA RADIO", "LAS PILAS" 
8801 DATA "EL TABLON","LA ESPADA 
", "LA LINTERNA”, "EL ESPEJO" 


8850 DATA VAL "0",VAL "1",VAL "O 
Le VAL 20 VAL sl Jada VAL o VAL ”0 
"VAL "0",VAL "0", VAL "0",VAL "O 
10) , VAL ng» $ VAL ng» E VAL .” 1 ”n 

8851 DATA VAL "0",VAL "0",VAL "O 
m p VAL dl 0) ds 

8900 IF C$="1" THEN GO TO VAL " 
8904" 

8901 IF LEN C$<VAL "4" THEN 60 

TO VAL "9144" 


8902 IF C$( TO VAL "4")="COGE" T 


HEN LET Z$=C$(VAL "6” TO ):2 FOR 
N=VAL *1” TO VAL "13": 1F 1$(0( 
R),N)<>"” " OR I$(D(R),N+1)<>" " 


THEN NEXT N 


8903 IF OBJ<VAL "9" AND C$t( TO Y 
AL "4*)="COGE" THEN LET U$=1$(0 
(R)3, TO N-VAL "1"):3 IF U$=72% THE 
N LET PLUB=VWAL "0" PRINT *TU € 
OGES "32$3".": LET OBJ=0BJ+VAL " 
1": GO SUB 8085: POKE (VAL "5999 


G"*+D(R)),VAL "1": 
0": RETURN 
87904 LET FLAG=VAL "0": IF C$="IN 
VENTARIO" OR C$="I"” THEN PRINT 
"ESTAS LLEVANDO: ": 
======== PRINT ?: FOR N=VAL "6 
0000" TO VAL "60019": IF PEEK N 
THEN PRINT TAB VAL "5"31I$(N-VAL 
"59999")2: LET FLAG=VAL "1": NEX 
TN: RETURN 
8905 IF C$=" INVENTARIO” OR C$="1 
" THEN NEXT N:z IF NOT FLAG THEN 
PRINT TAB VAL "5"3"NADA.": RET 
URN 
87906 IF 
" THEN RETURN 
8907 IF C$="COGE” 
4" THEN GO TO VAL 
87908 IF OBJ<VAL "9" AND C$( TO V 
AL "4")="COGE"” THEN PRINT "NO Y 
EO "¿C$(VAL "6" TO ): RETURN 
87910 IF C$( TO VAL ”"4*)<>"DEJA” 
THEN GO TO VAL "9144" 
87915 IF FLUG THEN PRINT "SOLO P 
UEDES DEJAR UN OBJETO EN CADA H 
ABITACION.": RETURN 
8920 LET T*=C$ (VAL 
8930 FOR N=VAL "1" 


LET O(R)=VAL " 


C+$=" INVENTARIO” OR C$="I 


OR LEN E$<VAL 
"9144" 


"6" TO) 
TO VAL "18": 
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FOR B=VAL "1" TO VAL 043% 1F 1% 
(N,B)=" " AND I$(N,B+1)=" " THEN 
LET E$=I$(N, TO B-VAL "13 60 


TO VAL "8940" 
8933 NEXT B 
8940 IF E$=T% AND FEEK (VAL "3599 
99"+N) THEN LET FLUG=VAL "1%: P 
RINT "TU DEJAS er". 3 LEY 2X= 
Nz LET OBJ=0BJ-VAL "1": LET O(R) 
=N: POKE VAL 159999"+N,VAL "0": 
GO SUB 8070: RETURN 
8950 NEXT Nz PRINT 
VANDO ESO. ": RETURN 
9000 FRINT AT VAL "21",VAL 
COMANDO ? "s 
9005 LET C$="" 

9010 IF INKEY$<>"" THEN (0 TO Y 
AL "9010" 

9020 LET Z$=INKEY$: 
N 60 TO VAL "9020" 
9025 BEEP VAL *.009".,VAL “3 
9030 IF Z$=CHR$ VAL "12" AND LEN 

CS>VAL "0" THEN LET C$=C$1 TO 
LEN C$-VAL "1”"): PRINT AT VAL "2 

" VAL "11"-VAL "3"+LEN C$:" 

FRINT AT VAL "21",VAL *"119%-vYAL 
»3"+LEN 0$3: GO TO VAL "9010" 
9033 IF Z$=CHR$ VAL "32" THEN 6 
O TO VAL "9010" 

9034 IF C$="”" AND Z$=CHR$ 13 
N GO TO 9005 
9035 IF Z$=CHR$ VAL yz 


"NO ESTAS LLE 


” 9) .” 5 "“ 


IF 73="" THE 


5 


THE 
THEN KR 
IF LEN C$>20 THEN GO TO 90 


LET C$=C$+Z%$ 

PRINT Z$;5 

GO TO VAL "9010" 

IF C$="505" AND RND<VAL "ab 
THEN 
RET 


9100 
" AND NOT PEEK VAL "£0028" 
PRINT "NO PUEDO AYUDARTE.”: 
URN 
9101 IF (C$="N" OR C$="NORTE")> A 
ND NO<>VAL "0" THEN FOR N=146 TO 
14 STEP -1: PRINT AT N,263" ”: 
PRINT AT N-1,263". ": FOR X=1 TO 
5: NEXT X: NEXT N: GO TO VAL "1 
000" +( (NO-VAL "3")* VAL "100") 
9102 IF (C$="S" OR C$="SUR") AND 
50 THEN FOR N=16 TO 18: PRINT 
AT N,263" "3AT N+1,263"3 "2 FOR 
X=1 TO 5: NEXT X: NEXT NM: GO TO 
VAL "1000"+((SO-VAL "3")x*VAL "10 
o") 


9103 IF (C$="0" OR C$="DESTE") A 


ND WE THEN FOR N=26 TO 24 STEP 
-1: PRINT AT 16,N3" ": PRINT AT 
16,N-13"%":2 FOR X=1 TO S: NEXT 
X: NEXT Nz GO TO VAL "1000"+((WE 
VAL "1")x*VAL "100") 
9104 IF (C$="E" OR C$="ESTE") AN 
D EA THEN FOR N=26 TO 28: OVER 
1: PRINT AT 16,N3".">AT 15,N+15 
OVER O: FOR X=1 TO $: NEXT 
Xz NEXT Nz GO TO VAL “10006"+ UE 
A-VAL "1")*VAL "100"”) 
9105 IF C$="S0S"” THEN PRINT "TI 
ENES LA SOLUCION ENFRENTE DE LA 
S NARICES!": RETURN 
9108 IF C$="SALVA” THEN SAVE "P 
OSICION" LINE (VAL "1000" +((R-VA 
L "1")>*VAL "100%")): RETURN 
9109 1F C$="RECUPERA" THEN LOAD 
9110 LET S=VAL "9510": LET G=VAL 
"165": GO SUB VAL "9900" 
9120 IF C$=X$ AND PEEK VAL "6000 
O" AND PEEK VAL "50001" THEN FR 
INT "LA ESCALERA ESTA ARREGLADA. 
"z POKE VAL "60100",VAL “19% RET 
URN 
9130 LET S=VAL "9520": LET G=VAL 
"19": GO SUB VAL "9900" 
9140 IF C$=X$ AND PEEK VAL "6010 
2" AND PEEK VAL "50005" AND PEEK 
VAL "60004" THEN POKE VAL "601 
03”, VAL "1" FRINT "ENCIENDES FU 
EGO. DE REPENTE "z RESTORE VA 
L "9530": FOR N=VAL »=11% TD VAL > 
31": READ G: FRINT CHR$ G3: NEXT 
Nz POKE VAL "£0004",VAL "0": FO 
R N=VAL "1" TO VAL "150": NEXT N 
= GD TO VAL “2200” 
9141 IF C$=X$ AND FEEK VAL "6000 
5" AND PEEK VAL "50004" THEN PR 
INT "ENCIENDES LA CERILLA....-+-+- 
....PERO SE APAGA AL MOMENTO. HA 
3 HECHO UNA TONTERIA!'”: POKE Y 
AL "60004",VAL "0": RETURN 
9142 IF O(R)>VAL "O" THEN 60 TO 
VAL "38900” 
9143 IF LEN CS$>VAL "2" AND C$<>" 
1" AND C$<>"COGE” AND O(R) THEN 
GO TO VAL "8903" 


9144 1F C$="1" THEN GO TO VAL ” 
8900" 

9145 IF LEN C$>VAL "4” THEN  1F 

"9" AND C$( TO VAL eq) = 
FRINT "LLEVAS DEMAS 
RETURN 


OBJ=VAL 
"COGE" THEN 
IADAS COSAS."”: 


56 O ODO O BB 0 


O 


O 


0 bl) pri sr + 


A 


O 


O 


. 9146 IF LEN C$>VAL 


THEN IF 
THEN PRI 
RETUR 


»qu 
C$( TO VAL "4")="COGE" 
NT "NO PUEDES COGER ESO. "”: 
N 
9147 IF LEN C$>VAL "4" 
C$( TO VAL "4")="DEJA” 
TO VAL "8915" 
9150 IF NOT PEEK VAL 
N LET S=VAL "9691": 
13": GO SUB VAL "9900": 
THEN LET S=VAL "9692": LET G=Y 
AL "23": GO SUB VAL "9900": PRIN 
T "VES EL "¿J$(VAL "9"): PRINT X 
$: PRINT "LO COGES DE "5X*$(VAL " 
15" TO ):z POKE VAL "60028",VAL " 
1": RETURN 
9155 LET JF=VAL "0": IF C$="J" T 
HEN PRINT "TIENES LAS SIGUIENTE 
S JOYAS: ==================== 
======="*”*: FOR N=VAL "60020" TO 
VAL "60029": IF PEEK N THEN LE 
T JF=VAL "1": PRINT J$(N-VAL "460 
019"): NEXT Nz RETURN 
9160 IF C$="J" THEN NEXT N:z IF 
NOT JF THEN PRINT ” NINGUNA. ” 
z RETURN 
9165 IF Cs$="J" 
39199 LET GH=VAL 


THEN IF 
THEN GO 


"50028" THE 
LET G=VAL ” 
IF C$=X$ 


THEN RETURN 
"1": RETURN 


' 9300>IF C$="S"OR C$="SUR"OR C$=" 
N"OR C$="NORTE"OR C$="E"OR C$="E 


STE"OR C$="0"O0R C$="DESTE"OR C+$= 


»7"O0R C$="6"THEN PRINT "NO PUEDE 
¿SS IR POR AHI. ": RETURN 

9302 IF LEN C$>3 THEN  1F C$( TO 
4)="MIRA" THEN PRINT "NO VEO N 

ADA INTERESANTE EN ESA DIRECCIO 

N.": RETURN 

9303 IF LEN C$>3 THEN IF C$( TO 
4)="COME"” THEN PRINT "NO SEAS 


ESTUPIDO!": RETURN 
9309 IF RND>VAL ".5” THEN PRINT 
"NO PUEDO PERMITIRTE HACER ESO. 
"¿ RETURN 
9320 PRINT "LO SIENTO, NO ES POS 
IBLE.": RETURN 
9500 DATA VAL "69",VAL "78", VAL 
"67", VAL "85",VAL "69",VAL "78", 
VAL "84",VAL "82",VAL "65",VAL " 
83", VAL "32",VAL "85",VAL "78",V 
AL "65",VAL "32",VAL "84",VAL "8 
2",VAL "65",VAL "77",VAL "80", VA 


IL "73",VAL "76",VAL "76",VAL "65 


",VAL "76",VAL "65",VAL "32", VAL 
"84",VAL "82",VAL "65",VAL "77" 
¿VAL "80",VAL "73",VAL "76",VAL 


¡"76",VAL "65",VAL "32",VAL "83", 


VAL "49",VAL "32",VAL "65",VAL " 
66",VAL "82",VAL "69",VAL "46" 
9510 DATA VAL "80",VAL "49",VAL 
"71",VAL "65",VAL "32",VAL "76", 
VAL "65",VAL "32",VAL "49",VAL " 
83",VAL "67",VAL "65",VAL "76",V 
AL "69",VAL "82",VAL "465" 
9520 DATA VAL "69",VAL "78",VAL 
"167",VAL "73",VAL "69",VAL "78", 
VAL "68",VAL "659",VAL "32",VAL " 
76",VAL "65",VAL "32",VAL "67",V 
AL "69",VAL "82",VAL "73",VAL "7 
6",VAL "76",VAL "65" 
9530 DATA VAL "85",VAL "78",VAL 
"32",VAL "80",VAL "65",VAL "78", 
VAL "69",VAL "76",VAL "32",VAL " 
83",VAL "59",VAL "32",VAL "65", V 
AL "66",VAL "82",VAL "69”,VAL "3 
2",VAL "89",VAL "32",VAL "80",VA 
L "65",VAL "83",VAL "65", VAL "83 
" VAL "82",VAL "80",VAL "79",VAL 
"82",VAL "32",VAL "69",VAL "76" 
9540 DATA VAL "77",VAL "73",VAL 
"82",VAL "65",VAL "32",VAL "65", 
VAL "82",VAL "82",VAL "73",VAL " 
66", VAL "65" 
9550 DATA VAL "69",VAL "83",VAL 
"77" ,VAL "69",VAL "82",VAL "65", 
VAL "76",VAL "68",VAL "65" 


9560 DATA VAL "76",VAL "85"”,VAL 
“ 80 » » VAL mM 6Ss $” 
9570 DATA VAL "82",VAL "79",VAL 


"77", ,VAL "80",VAL "69",VAL "32", 
VAL "76",VAL "65",VAL "32",VAL " 
82",VAL "79",VAL "67",VAL "65" 
9580 DATA VAL "82",VAL "79",VAL 
"77",VAL "BO",VAL "69",VAL "B3", 
VAL "32",VAL "76",VAL "65",VAL " 
32",VAL "82",VAL "79",VAL "67",V 
AL "65" 

9590 DATA VAL "67",VAL "79",VAL 
"78",VAL "32",VAL "76",VAL "65", 
VAL "32",VAL "69",VAL "83",VAL ” 
84",VAL "65",VAL "67",VAL "65" 
9595 DATA VAL "49",VAL "88",VAL 
"65", VAL "77",VAL "73",VAL "78", 
VAL "65",VAL "32",VAL "76",VAL ” 
65",VAL "32",VAL "80",VAL "65",V 
AL "82",VAL "69",VAL "68",VAL "8 
5".VAL "78",VAL "65",VAL "32",VA 
L "67",VAL "65",VAL "77",VAL "BO 
" VAL "65",VAL "78",VAL "65" 
9400 DATA VAL "84",VAL "79",VAL 
"67",VAL "65",VAL "32",VAL "76", 
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VAL "65",VAL "32",VAL "67",VAL " 
65", VAL "77",VAL "BO0",VAL "65",V 
AL "78",VAL "65" 

9610 DATA VAL "83",VAL "65", VAL 

"76" VAL "84",VAL "65",VAL "32", 
VAL "65",VAL "76",VAL "32",VAL " 
65",VAL "71",VAL "85",VAL "74",V 
AL "69",VAL "82",VAL "79" 

9615 DATA VAL "65",VAL "71",VAL 


"”£55",VAL "82”,VAL "82",VAL ES 


VAL "83",VAL "32",VAL "69",VAL " 
76",VAL "32",VAL "79",VAL "80",V 
AL "65",VAL "76",VAL "79" 

9620 DATA VAL "63",VAL "84", VAL 
"£9",VAL "82",VAL "82",VAL "73", 
VAL "90", VAL "65",VAL "B3",VAL " 
32",VAL "49",VAL "78",VAL "32",V 
AL "85",VAL "78",VAL "32",VAL "6 
7", VAL "79",VAL "76",VAL "67", VA 
L "72",VAL "79",VAL "78",VAL "67 
"¿VAL "65",VAL "86",VAL "65" 
9625 DATA VAL "67",VAL "65",VAL 
"B6",VAL "65" 

9630 DATA VAL "S0",VAL "79", VAL 
"78",VAL "32",VAL "76",VAL "65", 
VAL "83",VAL "32",VAL "80",VAL " 
73",VAL "76",VAL "635",VAL "83" 
9640 DATA VAL "85",VAL "83",VAL 
"£5",VAL "32",VAL "69",VAL "76", 
VAL "32",VAL "84",VAL "65",VAL " 
66", VAL "76",VAL "79",VAL "78" 
2650 DATA VAL "49"”,VAL "88", VAL 
"65", VAL "77",VAL "73",VAL "78", 
VAL "65",VAL "32",VAL "49",VAL " 
76",VAL "32",VAL "68",VAL "82",V 
AL "65",VAL "71",VAL "79",VAL "7 
8” 


7671 DATA VAL "85",VAL "83",VAL 
"65", VAL "32”,VAL "69",VAL "76", 
VAL "32",VAL "69",VAL "83",VAL " 
80"”,VAL "69",VAL "74",VAL "79" 
9692 DATA VAL "69",VAL "78",VAL 
"32", VAL "76",VAL "65",VAL "32", 
VAL "80", VAL "85",VAL "78",VAL " 
84",VAL "65",VAL "32",VAL "68", V 
AL "69",VAL "32",VAL "8S4",VAL "8 
5", VAL "32",VAL "78",VAL "65", VA 
L "82",VAL "73",VAL "90" 

9693 DATA VAL "77",VAL "73",VAL 
"82",VAL "65",VAL "32",VAL "76", 
VAL "65",VAL "32",VAL "S0",VAL " 


65",VAL "78",VAL "84",VAL "65", V 
AL "76",VAL "76",VAL "65" 
9694 DATA VAL "80”,VAL "85",VAL 
"76%,VAL "83",VAL "65",VAL "32", 
VAL "69",VAL "78",VAL "84",VAL " 
69",VAL "82",VAL "32",VAL "69",V 
AL "78",VAL "32",VAL "69",VAL "7 
6",VAL "32",VAL "B3",VAL "B0”,VA 
L "69",VAL "67",VAL "84",VAL "82 
” > VAL 2” es ” A VAL Mm 7 e ” 
95796 DATA VAL "80",VAL "85",VAL 
"76",VAL "83",VAL "65",VAL "32", 
VAL "69",VAL "78",VAL "84",VAL " 
69",VAL "82" 
9698 DATA VAL "69",VAL "76",VAL 
132", VAL "76",VAL "73",VAL "81", 
VAL "BS",VAL "73",VAL "68",VAL " 
79", VAL "32",VAL "66",VAL "85"”,V 
AL "82",VAL "66",VAL "85",VAL "7 
4",VAL "69",VAL "65" 
9499 DATA VAL "81",VAL "85", VAL 
"73", VAL "84",VAL "65",VAL "32", 
VAL "69",VAL "76",VAL "32",VAL ” 
84",VAL "65",VAL "8BO0",VAL "79",V 
AL ” 78 ”m 
9700 IF C$="MATA A DRACULA” AND 
PEEK VAL "60009" THEN PRINT "MA 
TAS A DRACULA": RESTORE VAL "295 
90": FOR N=VAL "1" TO VAL "13": 
READ Az PRINT CHR$ A: NEXT Nz PR 
INT "VES EL "3J$(VAL "4"): POKE 
VAL "40106",VAL "1": 60 TO VAL " 
2210* 
9705 1F C$="MATA A DRACULA” AND 
NOT PEEK VAL "40009" THEN PRINT 
"NO TIENES NADA PARA USARLO  C 
ONTRA EL.”:z FOR N=VAL "1" TO VAL 
"200": NEXT ON 
9710 PRINT "NO HAS SIDO SUFICIEN 
TEMENTE RAPIDO. DRACULA SALE 
DEL. ATAUD YCLAVA SUS DIENTES EN 
TU CUELLO. HAS MUERTO !'!!!" 
9800 FOR N=VAL "1" TO VAL "150": 
NEXT Nz PRINT "QUIERES VOLVER A 
EMPEZAR ? (S/N)”: GO SUB VAL "1 
016": IF C$="S" THEN RUN 
9810 IF C$="N" THEN STOP 
9820 PRINT "POR FAVOR, TECLEA S 
O N.”z GO TO VAL "9800" 
9900 RESTORE S: LET X$="": FOR N 
=VAL "1" TO G: READ CHR: LET X$= 
X$+CHR$ CHR: NEXT Nz RETURN 


O E 


Supertank 


Escenario 


Es el año 2014, y ya han pasado dos años desde que los Alborotadores de la Gran Ciudad deja- 
ron Londres en su actual estado de abandono, con las casas, tiendas y oficinas casi en ruinas y nu- 
merosos coches y camiones abandonados en las calles. 

Estás sentado en casa viendo en la televisión un reportaje sobre la película ganadora del Oscar 
de 1999, Rocky 23, cuando recibes un mensaje de tu antiguo comandante informándote de la mayor 
crisis imaginable. El grupo terrorista PPA ha colocado una bomba atómica en algún lugar del labe- 
rinto, que fue una vez una grande y bonita ciudad, y tal es su poder que, de no ser desactivada 
a tiempo, se producirá la total destrucción del sur de Inglaterra y la muerte de 61 millones de perso- 
nas. 

Como el más joven oficial del desarticulado Cuerpo de Tanques, has sido seleccionado para la 
misión y te ha sido encomendado el único supertanque todavía existente. Tú misión: entrar en Lon- 
dres, localizar la bomba y desactivarla a tiempo. 


Indicaciones de carga 


El programa es esencialmente gráfico, con toda la información sobre el estado del juego presen- 
te en la pantalla en forma gráfica. Por esto, los errores en la introducción del programa se produci- 
rán presumiblemente en alguna de las tres principales regiones listadas a continuación. 
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ANSSET RARA LARURRAS A ES DAS DIREAES INCA 


1) Hay un gran número de gráficos definidos por el usuario. Al teclear el programa hay que 
tener cuidado de no omitir ninguno de estos caracteres especiales. 


2) Los datos del principio del programa contienen el nuevo conjunto de caracteres (véase el apar- 
tado de técnicas). Estos valores deben ser entrados cuidadosamente, ya que un simple error 
o un valor omitido producirá una pantalla totalmente ininteligible. 


3) La última área de dificultad es el mapa (líneas 510-612), donde las líneas consisten en espa- 
cios, gráficos definidos y bloques, representando las paredes del laberinto. Para conseguir los 
bloques es necesario pulsar GRAPHICS CAPS SHIFT/8 (véase el Manual del Spectrum pa- 
ra más detalles). El número de espacios es también de vital importancia y debe ser compro- 
bado con las posiciones de los caracteres de la línea anterior. 


Técnicas 


Cuando juegues al SUPERTANK verás que es posible crear un conjunto de caracteres particular 
para tus propios programas; esto te podrá ayudar a crear ambientes más futuristas o más antiguos. 

Si estás familiarizado con crear gráficos definidos por el usuario, la creación de un nuevo juego 
de caracteres no tiene mayores problemas. La siguiente descripción te ayudará si no estás familiari- 
zado con este procedimiento. 

Un carácter está formado por 8 bytes, como en la figura 1. 


Letra A 
FIG. 1 


Los números obtenidos en la columna de la derecha son colocados en posiciones de memoria 
consecutivas donde el conjunto de caracteres va a ser almacenado. 

El conjunto original de caracteres del Spectrum está situado en memoria de sólo lectura (ROM) 
desde la posición 15360 hasta la 16128 y, por la estructura de la ROM, estos valores no pueden ser 
alterados. El primer paso, por tanto, para crear un nuevo juego de caracteres será transferir el origi- 
nal desde ROM hasta algún lugar en la memoria de lectura-escritura (RAM), donde pueden ser 
modificados. (La parte de memoria desde 63000 en adelante es generalmente el mejor lugar.) 

El siguiente programa puede ser utilizado para llevar a cabo esta transferencia: 


10 LET INI=563000 

ZO FOR I=0 TO 2040 

SO PORKE 1INT+1I,PEEK tiosourI1I) 
40 NEXT I 


i 


.t 


A A A A A ÓN 


Cuando la transferencia esté terminada debemos informar al ordenador de que debe utilizar este 
nuevo conjunto de caracteres; esto se realiza cambiando la variable del sistema (CHARS) localizada 
en las posiciones 23606 y 23607 como 


POKE 23606,24 
POKE 23607,246 


El conjunto de caracteres ya está listo para modificar los caracteres, introduciendo valores apro- 
piados en las correspondientes direcciones de memoria. 
Ejemplo 


Consideremos el problema de redefinir la letra A. Primero debemos determinar dónde empieza 
la representación de la letra A en la memoria. Esto puede ser conseguido usando 


LET START = (CODE (A) + 8) + 63000 


El nuevo carácter puede ser introducido en la memoria usando el corto programa: 


10 LET INI=(CODE 60 NEXT 1 

"A" *E)+53000 ZO STOP 
ZO FOR I=0 TO 7 80 DATA 1246,129,129, 
ZO READ N LA DO 12 4 127, 129 


40 POKE INI+I,N 
La letra A ha sido redefinida y aparecerá así en todos los listados e impresiones. 


intrucciones de juego 


Carga el juego desde la cinta y teclea RUN. Habrá un pequeño retardo durante el cual el labe- 
rinto y las variables se inicializarán, y entonces te encontrarás situado en el centro del laberinto. 


PAOLA 


A A | a 
E A A AA aio J 
=EE a a A | 


Edd 
q _me cm —mo—_—— >) 


derecnañta ha UTA A 


HERODES ARRASTRE LEEN DANA TEMES ARENA 


El objeto del juego es, como se dijo en el escenario, localizar y desconectar una bomba en un 
plazo de tiempo limitado. Al principio de cada partida dispones de una cantidad de comida, fuel 
y otras necesidades; pero será necesario ir supliendo éstas según vaya avanzando el juego. Las reser- 
vas están representadas por los gráficos definidos por el usuario indicados en la figura 2. 


Comandos 


Los únicos comandos necesarios para el juego son los relativos al control del tanque (véase tabla 
2), y pueden ser manejados desde el tablero o mediante el joystick izquierdo. 


PES BOMBA 

E COMIDA 

E FUEL. 

mn BASE LASER 


si TANQUE HACIA ARRIBA 

LES TANQUE HACIA DERECHA 

sE TANQUE HAC IA ABAJO 

ci TANQUE HACIA IZQUIERDA 


de URANIO RADIACTIVO 


FIG. 2 
TABLA 2 
Comando Dirección 

5 Fuego 

4 Arriba 

3 Abajo 

Z Derecha 

1 Izquierda 


38 


Notas gráficas 


GRAFICO B 
GRAFICO C 
GRAFICO D 
GRAFICO F 
GRAFICO L 


GRAFICO M 
GRAFICO N 
GRAFICO O 
GRAFICO P 
GRAFICO U 


Listado 


IMPORTANTE 
1) El programa debe ser tecleado con CAPS LOCK. 


2) Notas gáficas. 


SUPERTANK 


5 POKE 23458, 8 

10 INK 7: BRIGHT 1: PAPER 1: B 
ORDER 1: CLS : PRINT AT 4,103”SU 
PERTANK"35AT 7,103 "CARGANDOSE"5 AT 

10,7; "ESPERE UN MOMENTO” 

20 FOR I=0 TO 768: POKE 1+6425 
6,PEEK (I+15616)2 NEXT 1 

30 POKE 23607,250 

40 FOR 1=64521 TO 64729 

50 READ A: POKE 1,A: NEXT 1 

£0 DATA 50,36,36,126,98,98,98, 
0,124,68,68,126,798,98,125,0,126, 
66,66,96,96,98,126,0,126,66,66,9 
8,98,98,126,0,126,64,64,126,96,9 
6,126,0,126,64,64,126,96,96,96,0 
,126,66,64,102,98,98,126,0,66,66 
.66,126,98,98,98,0,16,16,16,24,2 
4,24,24,0 

70 DATA 4,4,4,6,70,70,126,0,68 


,68,68,126,98,98,98,0,64,64,64,9 


5,96,.96,126,0,126,74,74,106,106, 
106,106,0,126,66,.66,98,98,98,98, 
0,126,66,66,98,98,98,126,0,126,6 
6,66,126,96,96,96,0,126,66,66,98 
,98,110,126,0,124,68,68,126,98,9 
8,98,0,126,64,64,126,6,6,126,0 
80 DATA 126,16,16,24,24,24,24, 
0,66,66,66,98,98.98,126,0,98,98, 


98,98,36,36,60,0,74,74,74,106,10 
6,106,126,0,66,66,66,60,98,98,98 
,0,66,66,66,126,24,24,24,0,126,2 
,2,126,96,96,126,0 


90 DATA O 
100 FOR 1=64332 TO 64375: READ 
Az: FOKE 1,4: NEXT 1 


110 DATA 0,0,0,0,0,24,24,48,0,0 
,¿0,126,126,0,0,0,0,0.0,0,0,28, 24 
0 

ES 

120 FOR 1I=64320 TO 64335: 
Az POKE 1,M: NEXT 1 

130. DATA 0,12,24,24,24,24,12,0, 
0,48,24,24,24,24,48,0 

140 FOR 1=64264 TO 64271: 
Az POKE 1,M: NEXT 1 

150 DATA 24,24,24,24,24,0,24,0 

160 FOR 1=64464 TO 64471: READ 
Az POKE 1,M: NEXT 1 

170 DATA 0,24,24,0,0,24,24,0 

180 FOR 1=44488 TO 64495: READ 
Az POKE 1,M: NEXT 1 

190 DATA 0,62,462,0,62,62,0,0 
200 FOR 1=44504 TO 44511: READ 
Az POKE 1,A: NEXT 1 

210 DATA 126,70,6,30,24,0,24,0 
220 FOR 1=64736 TO 64743: READ 
Az POKE 1,A: NEXT 1 


READ 


READ 
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E 
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El. 

bh $ O 
7 E 

O 

O 

O 

O 

E O 

] O 

e O 

. O 

polo 

O 

: O 

od O 
hl E 

EG lo 

El O 

o) 


1 
I 
I 
! 
l 
' 
' 
| 
| 
1 
1 
l 
1 
| 
| 
| 
l 
| 
| 
| 
l 
| 
! 
' 
| 
ll 
| 
I 
l 
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' 
| 
l 
] 
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| 
' 
' 
1 
! 
' 
' 
l 
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l 
' 
I 
1 
J 
1 
1 
l 
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J 
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I 
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| 
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I 
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I 
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| 
1 
' 
' 
1 
l 
i 
l 
| 
I 
l 
l 
l 
1 
1 
! 
1 
| 
] 
| 
I 
1 


230 DATA 64,76,48,24,12,6,2,0 
240 FOR I= 64384 TO 64463: READ 
: POKE 1,A: NEXT 1 

250 DATA 126,66,66,70,70,70,126 
,0,8,89,8,24, 24, 24,24,0, 126, 66,2, 
126,96,96, 126, o, 124, 68, 4,30,6,70 
,126,0,120,72, 72, 72,126, 24, 24,0, 
126,64,64, 126, 6, 70, 126, 0,126,664, 
64, 126, 98,798,126,0,126,2,2,6,6» 6 
.6,0,60, 3é, 36,126,70,70, 126, O, 12 
6,66,66, 126, 6,6160 

260 dd I=0 TO 7: READ A: 
NEXT E 


POKE 


6,170,254 


280 FOR I=0 TO 7: READ Az POKE 
USR "f "+],A:: NEX 
Ti 1 

290 DATA 110,74,106,78,118,85,8 
5,118 

300 FOR 1=0 TO 7: READ Az POKE 
USR ""+I,A: NEXT 1 

310 DATA 0,16,24,60,68,94,255,0 

320 FOR 1=0 TO 7: READ A: POKE 
USR "++"+I,A: NEXT 1 


330 DATA 16,16,60,255,60,16,16, 
16 

340 FOR I=0 TO 7: READ A: 
USR "2"+1,A: NEXT 1 

350 DATA 124,248,254,171,87,254 
,248,124 

360 FOR 1=0 TO 7: READ A: 
USR ":"+1,A: NEXT 1 

370 DATA 0,1,127,170,213,127,1, 
O 

380 FOR 1=0 TO 7: READ A: 
USR "4"+1,A2 NEXT 1 

390 DATA 24,153,126, 189,126,189 
¿126,129 


POKE 


POKE 


POKE 


“400 nu 1=0 TO 7: READ A: POKE 
USR ""+I1,A: NEXT 1 

410 DATA 170,84,124,127,127,124 
.34,170 

420 FOR 1=0 TO 7: READ A: POKE 
USR "0"+1,A: NEXT 1 


430 DATA 129,126,189,126,189,12 
6,153,24 

440 FOR 1=0 TO 7: READ A: POKE 
USR "%"+1,A: NEXT 1 

450 DATA 85,42,62,254, 254,62, 42 
¿85 

500 DIM M$ (44,88) 


FOR A=1 TO 5 
FOR I=1 TO 88: 
NEXT 1 


502 LET M$(A, 1)= 


” a A 


NEXT A 
FOR A=60 TO 64 


503 
504 


505 FOR I=1 TO 88: LET M*$(A,1)= 
"0": NEXT 1 
506 NEXT A 
510 LET M$(6)=" MRE 
pu 
A m0 
E 
511 LET Mes) = ii an 
512 LET M$(8)=" RNA CIR: OA AT 
A o Al 
E TI CS A AE 
dei e BUNRRCC 
514 LET M$(9)=" RAE ENEE pa 
A LA q Et 
A MEE 
A a bid e 


na 
516 LET M$(10)=" me anemia co 
A 


Re Al A 
A 
A 
518 LET Ms (11) =" di RN 1 
ud O AR sl 
A ly 
A o 


520 LET M$(12)=" mara 
Meri O A A 

DA E A 

NS 

522 LET M$(13)=" ere E 


cd CAI A 
Edd ce de A 


IR AAA 


524 LET M$(14)=" MERA AMO 
sn eE AO RARE O 
ME NORIA CA 
CORA ERAN" 
526 LET M$(15)=" HEEE: ROO 
OT 
LE O 
PEOR ARI AAN O AISRCE 


MEAR 

528 LET M$(16)=" Ire: 
dl e Ene 

ARIANE Ann ASADA ER 

o 8 PEC 

A 

530 LET M$ (17) ="" INN DURA 


id 


A ri qu 


1 
l 
l 
l 
| 
I 
| 
| 
| 
l 
l 
| 
y 
I 
| 
| 
| 
1 
1 
' 
1 
| 
Í 
| 
' 
| 
I 
' 
' 
U 
' 
1 
' 
I 
1 
I 
' 
| 
| 
| 
| 
| 
| 
' 
1 
| 
I 
l 
] 
! 
' 
I 
1 
! 
| 
| 


ee 


OPPoOo 


id 


A EE AA: 
E] bi Li bl A 
A] iiO 


532 LET M$(18)= 
MAL As 
A 
UR e 
A 

534 LET M$ (19) =" inten cele 


= RA 

El ii 
ARCANO Et 0 
A 


a aa A ic Ll Ll 
Ii Al E pi 
RO PR PRA pc dd 


AL 
536 LET M$(20)=" ini ni aga Mc 


A A st 
A 


A: Ed PAE 
59538 LET M$(21)=" emana [E 
a A Dd 
10 
Led NAC 
540 LET M$C22)=" Reme Aa 
o Ea: 


a a q 
¿le ECU 

542 LET M$(23)=" pere 

ERA AE AE A + 

AE E Ml A 


de A a 
AA 
544 LET M$(24)=" ene cinta 
IE E AU A 
A A 
HR 
546 LET M$(25)=" eee AE 
e o 
A bl 


E AR A AR NA 

aci 

548 LET M$(26)=" (mM Mlrd 
! ENE A cs A 
Nec A O A 
id cerca 4d Ud 
RA 


+ ORO 


550 LET M$ (27) =" dear rmRiA arce ABRA 
HABANA FRE CONCURRE ER 
VR eN hu ANA 
URETA — RR 
552 LET M$(28)=" MIA OOARAS A E 


AR ARI AAA E 
Hi Hd Allo UAM 
DIRAN 1 a 
AA 


554 LET M$ (29) =" iii 
AO cn A 


il Mr dE E 
1 A A A 


ds 


556 LET M$(3O)=" CEA 
he A O 
A AO Ga DR AAC me 


ARE ICAC 
5598 LET M$(31)=" IRONIA 
bil Edd piid ER 
A e 
RO AREA 
560 LET M$(32)=" IRE eAaDe ai dll 
A L ll 
A dt a E 
A En 
562 LET M$(33)=" EME CANET 
DA RO pe 
MA di pl 
A aa 
564 LET M$6(34)= "RON OI, 00 CARO 
AC HU PM E ce 


As ' 
sn 
HU 


566 LET. MS (35)=" i 


ul: 
ERE 
Min! 


568 LET M$(36)="1 
EN REE mer 158 


ROCA 0 Ea 


ec 


Las e 
Mo BRENT SE E IEEE 
O 


3 


370 LET M$(37)=" ROA BE 
A 15 A 
hi A 
(edi E AN 


571 LET M$(38)=" A A 
ERC Ec PL e O 


MA al 
A Ss 


y ll A do 
di AER meine EN Lis 
mm E E BI OA tr 
a eS 
574 LET M$(40)=" IEEE HAIR 
A o A a ES 
A 
dd a O 
5976 LET M$(41)=" O OA 
Ll pi l 
AM o 
ds 
578 LET M$(42)=" mue AR eo AUEIEAL 


0 LR A 
0 Ss A 


O 


O 


O 8 8 O 6 O 00 O € 


G 0 


O 
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ada 


580 LET M$(43)=" Ie 
A A pura E 
ar” O cicalci ii: 
Md Acc ICAO 
582 LET Ms (449) =" 0000001 po 
Er HE 
A ! 
a 


AE Al 
AA 
A 


ci ER OR AAA E 

A: A 

ee 

606 LET M$ (56) =" Im0RNeRI RAIL DRNA 

AAA E AE A a 

id ña AURA EA 
Je A A 

£608 LET M$(57)=" IIA 

Eo 0 ER A 

Lidl PR A ce 

A O 


cl 


AA ———— — Y O A 


— 


584 LET M$(45)=" NIRO 50 
A cil << > AA E E E 
IRRRCO — EOCRCERECA Cl EEANERS 180 AE ARES UICN HEEE 

A NOE" E UR E A 
586 LET M$ (46 =" AA ACOA fe tit 512 LET MS (59) =5" ONERICUES pa 

dr infla 

len Ho 
A IR 4 
IRE 


610 LET M$ (589) =" rra ARE LO 


111 
Mi 


1 

| 

| 

| 

| 

1 

| 

| 

| 

| 

| 

mn 

E e E Ea 
ii a 
A A Meat PIAR 

? A 

; 588 LET M$(47)=" IRA 
AURA A AER Ea 
a AE IA qual ALEC 
A ed LO 

590 LET M$(48)=" cinc Ce BA 
| 

' 

| 

1 

| 


i 
: 
E 
e 
| 
E 


sn a q] de Be 


ARE 


CLS : PRINT AT 2,653"B I EN 
N 1DOS"3AaT 4,143" A" 

AT 6,45 "aman e A 
PA ma a] AA AL E E 
ECO 0 ena | 204 PRINT AT 7,45% We ale 


pl ps nee ga ” calls fil ii ln 
E il Dt PIAT ll a, a Mi E A 


du E 
592 LET M$(49)=" dre 

a 
Ad ARE 


A 
AA Hd 


O O A 
594 LET MS(50)="seRemeeen q er | 910 PRINT AT 10,43 "05H MEME 
A A ha de E e 


912 PRINT AT 12,43” 
qu al 5 ae LS 
914 PRINT AT 13, 
pa A a 
ps 916 PRINT AT 
0 OEI pecera A a AÑ e E E E 
RAMA 918 PRINT AT 15, 
598 LET M$(52)=" MNAE cada e E 
Lil 920 PRINT AT 
Dd He AA 
990 PRINT AT 20,63 FLASH 15"”PUL 
SA CUALQUIER TECLA"3 FLASH O 
999 IF INKEY$="" THEN GO TO 99 


Ma PRA 


43" se E 1 


14,43" 


43" Ii «+ 
CEA AAA DO 16,43” a E 
Hull a A dl 
IRAN ARA AAA 
£00 LET M$(53)=" IEA Mee 
a bid 
elit Y 
1000 INK 7: 
ORDER 1: CLS 
1005 LET TI=0: LET FOODi1=0: LET 
UA Li AAA Wo | TIME1=0: LET DAMi=0: LET FUEL1i=0 
A A O : LET LASER1=0 
1010 PRINT AT 1,145"FUEL"5AT 5,1 
4; "PODER LASER"5AT 10,15 "TIEMPO" 


NERO DAI A RIO GA EN 


CR 

A o 
ed] ado 
602 LET M$(54)=" IURINANOAAAE GEI 
AE CA E o a E 


ree 


BRIGHT 1: PAPER 1: B 


id td 
604 LET M$(55)=" ie 
ANIME 


oo DB QQ Y 


A 


42 


ERES VDABEN TRAS DEA LN IRSA FER TAPADERA E DEPT ITA RRA 


O oO Go O OOO Ogg we 


O 


O 


O 0 0 0 0 


O 


O 


¡ RINT AT 20,95" 


LI jo 


5AT 14,1; "DEFENSAS";AT 14,17;"C0 
MIDA" 

1020 INK 5: 
.-9: DRAW 137,0: 
137,0 

1030 PLOT 111,120: 
AW 137,0: DRAW 0,9: DRAW -137,0 
1040 PLOT 7,16: DRAW 0,-9: DRAW 
241,0: DRAW 0,10: DRAW -241,0 
1050 PLOT 7,48: DRAW 0,-9: DRAW 
113,0: DRAW 0,9: DRAW -113,0 
1060 PLOT 135,48: DRAW 0,-9: DRA 
W 113,0: DRAW 0,9: DRAW -113,0 
1070 PLOT 7,80: DRAW 0,-9: DRAW 
241,0: DRAW 0,9: DRAW -241,0 
1080 PAPER 2: PRINT AT 
PAPER 4: 
AT 7,143" " 
1090 PAPER 3: PRINT AT 12,13" 
16,13" 
PRINT AT 


DRAW 0 
DRAW 


PLOT 111,152: 
DRAW 0,9: 


DRAW 0,-9: DR 


PRINT AT 

PAPER 4: 
15, 175 $” ” 
1110 PAPER 1 

1120 LET FUEL=137: LET LASER=137 
: LET TIME=241: LET DAM=113: LET 
FOOD=113: LET Y=24: LET X=31: L 
ET DIR=2 

1130 GO SUB 8880 

1135 PRINT AT 20,95" INSTRUCCIONE 

Ss Ed ” 


1100 PAPER 2: 


1136 LET S$=INKEYS$: IF INKEYS$="" 
THEN GO TO 1136 

1137 IF S$="S" OR S$="s" THEN 6G 
O TO 4000 

1138 IF S$="N" OR S$="n" THEN P 


GO TO 1140 

1139 GO TO 1136 

1140 GO SUR 8890 

1145 IF RND>.999 THEN LET Es$="M 
INE”: GO TO 9000 

1160 IF J$="5" THEN GOD SUB 8200 
: 60 TO 1140 

1170 IF J$="4" THEN LET DIR=0: 
IF M$(Y-1,X)<>”"!" AND M$(Y-1,X) 
<2*" THEN LET Y=Y=182 LEJT FUEL 
1=FUEL-1: GO SUB 8000: GO SUB 88 
80: GO SUB 8300: GO SUB 8400: GOD 
TO 1140 

1175 IF J$="4" 
: GO TO 1140 
1180 IF J$="2" THEN LET DIR=1: 
IF M$(Y, X+1)<>"38" AND M$(Y, X+1) 
THEN LET X=X+1: LET FUEL 


THEN GO SUB 8880 


GO SUB 88 
GO 


GO SUB 8000: 
GO SUB 8400: 


1=FUEL-—1: 
30: GO SUB 8300: 
TO 1140 

1185 IF J$="2" 
: GO TO 1140 
1190 IF J$="3" THEN LET DIR=2: 
IF MB$(Y+1,X)<>"0" AND M$(Y+1,X) 
<>" +" THEN LET Y=Y+1: LET FUEL 
1=FUEL-1: GO SUB 8000: GO SUB 88 
80: GO SUB 8300: GO SUB 8400: GO 
TO 1140 

1195 IF J$="3" THEN GO SUB 8880 
+ 60 TO 1140 

1200 IF J$="1" THEN LET DIR=3: 
IF M$(Y, X-1)<>"%" AND M$(Y, X-1) 
22%)" THEN LET X=X-1: LET FUEL 
1=FUEL-1: GO SUB 8000: GO SUB 88 
80: GO SUB 8300: GO SUB 8400: GO 
TO 1140 

1205 
60 
1210 
1220 
D-2: 
1230 
1240 
4000 


THEN 60 SUB 8880 


J$="1" THEN GO SUB 8880 
1140 
SUB 8400 
TI=4 THEN LET FOOD1=FOO 
SUB 8000: LET TI=0 
LET TI=TI+1 
GO TO 1140 
LET Cs$=" 

A TI, EL MAS GRANDE 
GUERRERO DE NUESTROS TIEMPOS, T 
E HA SIDO CONFIADA UNA MISION SU 
ICIDA.....«PENETRAR EN EL LABERI 
NTO DE LOS LARES Y DESCONECTAR U 
NA BOMBA ATOMICA ESCONDIDA EN AL 
GUN LUGAR DE ESTE.”: GO SUB 8100 


4010 LET C$="PARA AYUDARTE DISPO 
NES DE UN SUPERTANQUE. ESTE SERA 
TU UNICO MEDIO DE PROTECCION. U 
NA VEZ DENTRO DEL LABERINTO DEBE 
RAS PERIODICAMENTE RECOGER FUEL 
COMIDA “ts + Y 
RANIO RADIACTIVO “us 

Y PARA SER USADO EN TU LASER.": 
GO SUB 8100 

4015 LET C$="SIEMPRE QUE NO ESTE 
S EN MOVIMIENTO COMERAS, CON LO 
QUE GASTARAS COMIDA.": GO SUB 81 
00 

4020 LET C$="ATENCION A LAS BASE 
S DE LASER ENEMIGAS “+*, SIEMPR 
E QUE ESTES A TIRO TE ALCANZARAN 
« CUIDADO TAMBIEN CON LAS MINAS ( 
ESCONDIDAS) ?!!!"z GO SUB 8100 
4030 LET C$="ENCUENTRA EL CAMINO 
A LA BOMBA “esti Y DESACTIVALA. 


“s 60 SUB 8100 8046 PLOT 134+1,47: DRAW 0,-7 


7 I 
i O | 4040 LET C$="CONTROLES -------- 8048 NEXT Il: LET FOOD=FOODi1: LET 
CONTROLES IZQUIE FOODi=0: PAPER 12 INK 72 BRIGHT : 
O ¡ RDOS DEL JOYSTICK PARA EL MOVIMI 1: IF FOOD<=3 THEN LET E$="FOO : 
i ¡ ENTO Y EL BOTON PARA DISPARAR. D": GO TO 9000 
: | CON | 8049 RETURN 
A O | TRUL. POR TEBLADO ===-=-= 8100 INK 7: BRIGHT 1: PAPER 1 
| “s* FUEGO 8110 FOR I=1 TO LEN C$ 
: O! 8115 IF 1>29 THEN PRINT AT 20,1 
| “4 ARRIBA 5C$(1-29 TO 1): BEEP .01,5: PAUS 
i o! “3 ABAJO E 1: GO TO 8130 | 
j ] viv IZQUIE | 8120 PRINT AT 20,31-153C$(1 TO 1) 
¡RDA : BEEP .01,5: PAUSE 2 
O; v2w DERECHA 8130 NEXT 1 
i : BUENA SUERTE !! 8140 PAUSE 50: PRINT AT 20,13" 
| O! "* GO' SUB 8100 "E 
4050 GO TO 1140 ETURN 
| O ¡ 8000 IF FUELI=0 THEN 60 TO 8010 | 8200 IF DIR<>0 THEN 60 TO 8220 
8002 PAPER 2: INK 1: BRIGHT O 8202 FOR I=Y-1 TO Y-4 STEP -1 
¡| 8004 FOR I=FUEL TO FUELi STEP == 8204 IF M$(1,X)="=" OR M$(1,X)= 
O !8006 PLOT 110+1,151: DRAW 0,-—7 ng OR MS(I,X)="+" OR M$(I,X)="¡ 
| 8008 NEXT 1: LET FUEL=FUELi: LET " OR M$(1,X)=" 4% » OR 
O ' FUEL1=0: PAPER 1: INK 7: BRIGHT | m$(I,X)="84" OR MS$(I,X)="s 
ls IF FUEL<=3 THEN  INK 7: PLOT " THEN GO TO B209 
O | 57,47: DRAW 0,-9: LET E$="FUEL” | 8207 IF M$(1,X)=" " THEN NEXT 1. 
: GO TO 9000 8208 IF M$(1,X)=" " THEN  INK 2: 
8010 IF LASER1=0 THEN GO TO 802 PLOT 51,144: DRAW 0,30: BEEP .1 
O¡0 ,40:2 INK 12 PLOT 51,144: DRAW O, 
' 8012 PAPER 2: INK 1: BRIGHT O 30: LET LASER1=LASER-5: LET Z=1: | 
o ¡8014 FOR I=LASER TO LASER1 STEP GO SUB 8000: RETURN | 
| 1 : 8209 IF I=Y-1 THEN BEEP .1,40: 
¡ 8016 PLOT 110+1,119: DRAW 0,7 LET LASERI=LASER-S: LET Z=1: GO 
O 1 8019 NEXT Il: LET LASER=LASER1: L | suB 8000: GD TO 8212 
' ET LASER1=0: PAPER 1: INK 7: BRI | 8210 INK 2: PLOT 51,144: DRAW O, 
O ' GHT 12 IF LASER<=3 THEN LET E$= | (((Y-1)-1)*8)-1: BEEP .1,40: INK 
| "LASER": GO TO 9000 1: PLOT 51,144: DRAW 0, (((Y-1)- 
y : 9020 LET TIME1=TIME-1 1)*8)-1: LET Z=1: LET LASER1=LAS , 
8022 PAPER 3: INK 1: BRIGHT 0 ER-5: GO SUB 8000 : 
(8024 FOR I=TIME TO TIME1 STEP -1 | 8212 LET 1=Z: 1F M$(1,X)="4" TH 
O ¡8026 PLOT 6+1,79: DRAW 0,7 EN FOR J=7 TO 1 STEP -1:2 INK J: 
y ' 8028 NEXT I: LET TIME=TIME1: LET PRINT AT 4-(Y-1),63"%*": BEEP . | 
E O! TIMEi=0: PAPER 13 INK 7: BRIGHT | 1,J: NEXT J: LET M$(1,X)=" ": PR 
3 da 1F TIMEX=3 THEN LET E$="TIM | INT AT 4-(Y-1),63" "z LET C$="LA , 
1 o E”. 60 TO 9000 SER POSITION DESTROYED.": GO SUB 
á É ' 8030 IF DAM1i=0 THEN GO TO 8040 8100: RETURN 
< | 8032 PAPER 2: INK 1: BRIGHT O 8213 RETURN 
a Al O ! 8034 FOR I=DAM TO DAM1 STEP -1 8220 IF DIR<>2 THEN GO TO 8240 
el Y ¡ 8036 PLOT 6+1,47: DRAW 0,-7 8222 FOR I=Y+1 TO Y+4 
h | O ¡8038 NEXT 1: LET DAM=DAM1: LET D | 8224 IF M$(1,X)=".«:" OR M$(1,X)= 
a 7 ''AM1=0: PAPER 1: INK 7: BRIGHT 1: | "5" OR M$(1,X)="-" OR M$(1,X)="5; 
M1 IF DAM<=3 THEN LET E$="DAM": G | " OR M$(1,X)=":% " OR 
A O ¡0 TO 9000 M$(1,X)="" OR M$(1,X)=". 
l ¡8040 IF FOODi=0 THEN RETURN " THEN 60 TO 8229 
p O ' 8042 PAPER 4: INK 1: BRIGHT O 8226 IF M$(1,X)=" " THEN NEXT 1 


8044 FOR I=FOOD TO FOOD1 STEP -1 | 8227 1F I=Y+i THEN BEEP . 1,40: 


AEREOS LIE CAMAS EDIC PEA EIA LAIR DEE 


A a DI 


LET LASER1=LASER-5: 
SUB 8000: GO TO 8232 
8228 IF M$(1,X)=" " THEN 
PLOT 51,135: DRAW 0,-30: 
1,40: INK 1: PLOT 51,135: 
,¿-30: LET LASER1=LASER-5: 
Il: GO SUB 8000: RETURN 
8229 IF I=Y+1 THEN BEEP .1,40: 
LET LASERi=LASER-S: LET Z=1: GO 
SUB 8000: GO TO 8232 
8230 INK 2: PLOT 51,135: 
-(((I-Y)-1)+*8)+2: BEEP 


LET Z=I:s 60 
INK 2: 
BEEP . 
DRAW O 
LET Z= 


DRAW O, 
-.1,40: IN 


'K 13 PLOT 51,135: DRAW 0,-(((1I-Y 
3)-1)x8)+2: LET Z=l: LET LASERi=L 
; ASER-5: GO SUB 8000 


8232 LET I=Z: 


IF M$(1,X)="+%" TH 
EN FOR J=7 TO 1 STEP —-1: INK J: 
PRINT AT 4+(1-Y),63"4": BEEP . 
1,J: NEXT J: LET M$(1,X)=" ": PR 
INT AT 4+(1-Y),653" ":z LET C$="BA 
SE LASER DESTRUIDA.”: GO SUB 810 

O: RETURN 
8233 RETURN 
8240 IF DIR<>3 THEN GO TO 8260 


' 8242 FOR I=X-1 TO X-6 STEP —1 


'; ESTRUIDA."”: 


8244 IF M$(Y, 1)=":" OR M$(Y, 1)= 
me” OR M$(Y, 1)="+*" OR M$(Y, 1)="; 
" OR M$(Y, 1)="p " OR 
M$ (Y, 1)="" OR M$(Y, 1)=".5 

" THEN GO TO 8249 
8246 IF M$(Y, 1)=" " THEN NEXT 1 


8247 IF I=X-1 THEN BEEP .1,402 

LET LASER1=LASER-S: LET Z=1: 60 
. SUB 8000: GO TO 8252 

8248 IF M$(Y,1)=" " THEN  INK 2: 

PLOT 47,140: DRAW -47,0: BEEP . 

1,40: INK 1: PLOT 47,140: DRAW — 

47,0: LET LASER1=LASER-5: LET Z= 
-lz GO SUB 8000: RETURN 

8249 IF I=X-1 THEN BEEP .1,40: 
-LET LASER1=LASER-5: LET Z=l:2 GO 

SUB 8000: GO TO 8252 

8250 INK 2: PLOT 47,140: DRAW -—( 


(((X-1)-1)*8)-2),0: BEEP .1,40: 


INK 1: PLOT 47,140: DRAW —((((X- 
1)-1):8)-2),0: LET Z=l: LET LASE 
R1=LASER-5: GO SUB 8000 

8252 LET I=Z2 IF M$(Y, 1)="4" TH 
EN FOR J=7 TO 1 STEP —1s INK J: 


PRINT AT 4,6+(1-X)3"-%w": BEEP . 
1,J: NEXT J:z LET MS$(Y,I)=" "3: PR 
INT AT 4,6+(1-X35" "3 PAPER 13 L 
ET DAM=113: LET C$="BASE LASER D 
GO SUB 8100: RETURN 
8253 RETURN 


8260 REM 
8262 FOR I=X+1 TO X+6 
8264 1F M$(Y, 1)="x" OR M$(Y, 1)= 


"ip" OR MS(Y,1)="4" OR M$(Y,1)=" 


" OR MS(Y, 1I)="[5 ” OR 
M$ (Y, 1)="R" OR M$(Y, 1)="s%" 
" THEN GO TO 8269 

8266 IF M$(Y,1)=" " THEN NEXT 1 
8268 IF MS$(Y,1)=" ” THEN  —INK 2: 
PLOT 56,140: DRAW 47,0: BEEP .i 
390: INK 1: PLOT 56,140: DRAW 47 
0: LET LASERi=LASER-S: LET Z=I: 


GO SUB 8000: RETURN 
8269 IF I=X+1 THEN BEEP .1,40: 


LET LASERi=LASER-5: LET Z=1I: GO 
SUB 8000: GO TO 8252 
8270 INK 2: PLOT 56,140: DRAW (( 


((I-X)-1)*8)-2),0: 
NK 1: PLOT 56,140: 
-1)+8)-2),02 LET Z=1I2 
=LASER-5: GO SUB 8000 
8272 LET I=Z8: IF MS(Y, 1)="+<" TH 
EN FOR J=7 TO 1 STEP -1:2 INK J: 
PRINT AT 4,6+(1-X)53"-%*"z BEEP . 


BEEP .1,40: 1 
DRAW ((((1-X) 
LET LASER1 


1,J:s NEXT J: LET M$(Y,1)=" ": PR 
INT AT 4,6+(1-X)35" ":z LET C$="BA 
SE LASER DESTRUIDA.”: GO SUB 810 
O: RETURN 

8273 RETURN 

8300 IF M$(Y, X)="83" THEN LET F 


PRINT AT 3,14; 
“y PAFER 11 LE 
T C$="PROVISION DE FUEL REPUESTA 
.": GO SUB 8100: LET M$(Y,X)=" " 
: RETURN 


UEL=137: PAPER 2: 


8305 IF M$(Y, X)=" E " THEN LE 
T FOOD=113: PAPER 4: PRINT AT 16 
s173" ": PAPER 1: L 


ET C$="PROVISION DE COMIDA REPUE 


STA.": GO SUB 8100: LET M$(Y,X)= 
" ": RETURN 

8310 IF MS(Y,X)=" ss * THEN LE 
T LASER=137: PAPER 4: PRINT AT 7 


s145" "s PAPER 1 
: LET C$="PROVISION DE URANIO RA 


DIACTIVO REPUESTA.” : GO SUB 810 
O: LET M$(Y,X)=" "z RETURN 
8320 IF M$(Y, X)=".:" OR M$(Y, X)= 


"rw" THEN GO TO 9400 

8330 RETURN 

8400 FOR I=X-1 TO X-6 STEP -1 

8405 IF M$(Y,1)="="%" OR M$(Y,1)= 

10 OR MS(Y, 1)="8" OR MS(Y, 1)=" 
" OR MS(Y, 1)="/" OR M$(Y, 1 


DS " THEN GO TO 8 8525 IF M$(1,X)="w==" OR M$(1,X)= 


| 
¡ 440 m6" OR MS(1,X)="E+" OR M$(1,X)="| 
| 8410 IF M$(Y,1)=" " THEN NEXT I " OR M$(1,X)="M8" OR M$(I,X ; 
: O 8411 IF M$(Y,1)<>"-4-" THEN 60 T =" y " THEN RETURN —. 
¿ ¡O 8440 8530 IF M$(1,X)=" " THEN NEXT 1, 
Ye O : 8415 IF I=X-1 THEN BEEP .1,40: 8532 IF M$(1,X)<>"+4" THEN RETU : 
e GO TO 8430 RN ¡ 
8420 INK 2: PLOT ((I-X)+7)*8,140 | 8535 IF I=Y-1 THEN BEEP .1,40: 
O |: DRAW 47-(((1-X)+7)*8)-1,0 GO TO 8550 | 
| 8425 INK 1: BEEP .1,40: PLOT ((I | 8540 INK 2: PLOT 51,144: DRAW O, 
O | -X)+7)*8,140: DRAW 47-=(((1-X)+7) | -(((I-Y)+1)+8)-1 
ll ¡ *8)-1,0 8545 INK 1: BEEP .1,40: PLOT 51, 
E] o : 3430 LET DAMi=DAM-INT (10*RND): 144: DRAW 0,-(((I-Y)+1):8)-1 | 
bl ' GO SUB 8000 8550 LET DAMi=DAM-INT (10*RND) : 
Ei (8435 LET C$="HIT BY LASER FIRE!'! | GO SUB 8000 
| O |" GO SUB B100 8555 LET C$="HAS SIDO ALCANZADO 
| ¡ 8440 FOR I=X+1 TO X+6 11"; RETURN 
| O | 8445 IF MS(Y,1)="=" OR M$(Y,1)= | 8880 INK 7: BRIGHT 1: FOR I=Y-4 
| gp OR MS(Y,1)="E9" OR M$(Y,1)=" TO Y+4 
" OR MS(Y, 1)="4" OR M$(Y,I | 8881 PRINT AT Y-(1+4),05M$(1) (X- 
O Ea » THEN 607108 |6 TO X+6) 
| ; 480 8882 NEXT 1 
O ' 8451 IF M$(Y,1)=" " THEN NEXT 1 | 8883 IF DIR=0 THEN PRINT AT 4,6 : 
| 8453 IF M$(Y,1)<>"4" THEN 60 T | 5“3k 
o | O 8480 8884 IF DIR=1 THEN PRINT AT 4,6 . 
| (8455 IF 1=X+1 THEN BEEP .1,40: q 
' 60 TO 8470 8885 IF DIR=2 THEN PRINT AT 4,6 : 
2! O | 8460 INK 2: PLOT 56,140: DRAW al sr | 
; I-X)*8)-10,0 8886 IF DIR=3 THEN PRINT AT 4,6 ; 
O ' 8465 INK 1: BEEP .1,40: PLOT 56, | 3"ók" E 
' 140: DRAW ((1-X)*8)-10,0 8887 RETURN 
' 8470 LET DAMi=DAM-INT (10%RND): 8890 LET J$=INKEYS$ | 
il O | 60 suB 8000 8895 RETURN ¡ 
' ' 8475 LET C$="HAS SIDO ALCANZADO | 9000 FOR I=7 TO 1 STEP -1: INK 1. 
nd O | 1!" GO SUB 8100 9010 IF DIR=0 THEN PRINT AT 4,6. 
| ' 8480 FOR I=Y+1 TO Y+4 E 
1 O ' 8485 IF M$(1,X)="" OR M$(1,X)= | 9015 IF DIR=1 THEN  PRINT AT 4,6 ; 
:] y ap OR MSI, X)="E%" OR MS(I, X=] | 3 UE" 
| » OR MS(1,X)="H4" OR M$(1,X 9020 IF DIR=2 THEN PRINT AT 4,6 | 
0 1)="a " THEN GOTO 8 3%" | 
ho ' 520 9025 IF DIR=3 THEN PRINT AT 4,6: 
No O ' 8490 IF M$(1,X)=" " THEN NEXT 1 | 5304 
¿ a | 8491 IF M$(1,X)<>"4+" THEN GO T | 9030 BEEP .2,1 
E o : 0 8520 9035 NEXT 1 
al 8495 IF I=Y+1 THEN BEEP .1,40: 9040 IF E$="FUEL” THEN LET C$=" 
0d ; GO TO 8510 SE TE AGOTO EL FUEL. y 
| : O | 8500 INK 2: PLOT 51,135: DRAW O, HAS MUERTO 
;  —(((I-Y)-1)8)+1 "z GO SUB 8100: GO TO 910 : 
Ñ | O | 8505 INK 1: BEEP .1,40: PLOT 51, | 0 
m4 ¡| 135: DRAW O, =(((1-Y)-1)8)+1 9045 IF E$="LASER" THEN LET C$= ; 
< '; 8510 LET DAM1=DAM-INT (10%*RND) : "SE TE AGOTO EL LASER. 
Ml O | 60 suB 8000 HAS MUERTO | 
' 8515 LET C$="HAS SIDO ALCANZADO "s GO SUB 8100: GO TO 9 | 
O ' 1!" GO SUB 8100 100 
| ' 8520 FOR I=Y-1 TO Y-4 STEP -1 9050 IF E$="TIME" THEN LET C$=" ; 


— 
A mm. e. 
LACAN DARE CN PRA ANOS TRAIN INAP) 


pos 


' EL TIEMPO SE HA AGOTADO Y LA BOM 

' BA HA HECHO EXPLOSION. 

HAS MUERTO 
Os ": GO SUB 8100: GO TO 


9055 IF E$="FOOD" THEN LET C$="” 

O SE TE AGOTO LA COMIDA. 
HAS MUERTO 
": GO SUB 8100: GO TO 9 


1 
9060 IF E$="DAM" THEN LET C$="T 
E HAS QUEDADO SIN DEFENSAS. 
HAS MU 
ERTO ": GO SUB 8100 
90635 IF E$="MINE"” THEN LET C$=" 
O ¡| HAS ENCONTRADO UNA MINA. MALA SU 
¡ERTE !!. TE ESFARCES POR EL AIRE 
| HECHO TROCITOS !!!” 
S | HAS MUERTO 

Po ": GO SUB 8100 
O 19100 LET SCORE=INT (80-X)+(49-Y) 

Ú 

Ú 

! 


: IF SCORE=1 THEN LET SCORE=0 
O ¡9101 LET SCORE=100—SCORE 
| 


9102 PRINT AT 20,13" PU 
NTUACION "¿SCORE5"%":z FOR I=1 TO 
200: NEXT 1 

9109 PRINT AT 20,5; "QUIERES JUGA 
R OTRA VEZ ?” 

9110 IF INKEY$="S" OR INKEY$="s" 
THEN LET C$="CARGANDO MAPA. PO 
R FAVOR, ESPERA”: GO SUB 8100: G 
O TO 500 

9120 IF INKEY$="N" OR INKEY$="n" 
THEN STOP 

9130 GO TO 9110 

9400 BEEP .25,28: BEEP .25,28: B 

EEP .3,28: BEEP .25,26: BEEP .25 
,24: BEEP .25,24: BEEP .3,24: BE 

EP .25,23: BEEP .25,21: BEEP .3, 

21: BEEP .25,24: BEEP .3,24: BEE 

P .8,28 

9410 LET C$="BIEN HECHO !'!!! HA 

S DESACTIVADO LA BOMBA A TIEMPO 


: GO SUB 8100: GO TO 9100 


O: DO E 0 úl 0 


0 5 


o e 
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Dragón 


Escenario 


: Hace muchos siglos, en los místicos principios del tiempo, vivía un pequeño e insignificante he- 
zhicero. Ocupaba la mayor parte de su tiempo en la práctica de la magia blanca, hasta que un gran 
día, paseando por el espacio etéreo, se encontró con la superpoderosa arma La Espada de Roac; 
un arma forjada en los fuegos de la eternidad por el gran dios Roac. Sin embargo, tras muchas 
batallas y victorias, el hechicero llegó a ser extremadamente gandul, y la poderosa espada quedó 
en desuso y al final se perdió. 

Mucho después la espada fue encontrada y usada por el temible Evil Overlord para su propio 
provecho. Esta es tu misión, oh poderoso guerrero: recuperar el control de la espada y proteger el 
futuro de la civilización; pero, cuidado, para conseguir la espada primero deberás derrotar a Evil 
Dwerlord. 


“Indicaciones de carga 


El programa es muy largo y ocupa la mayoría de los 48K de RAM. Es relativamente simple 
de copiar, teniendo especial cuidado con el mapa (líneas 15-255) y con los espacios en las líneas 
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AN EA EIA ERAN A 


NAM RALAE AEMENTI NADIA 


IIIRENALA ALA LEAN IN 


O PP 


ER NR AAA ANSIA 


DAA II NESUTLA 


pArA 


conteniendo mensajes textuales. El mapa contiene en su mayoría espacios y puntos y se deben co- 
piar cuidadosamente, notando que cada línea contiene 50 caracteres. 

Cuando el programa haya sido completamente tecleado y comprobado, puede ser salvado en 
cinta usando el comando 


SAVE “DRAGON” LINE 5 
Tras esto, la carga y ejecución del programa será automática. 


Técnicas 


Si has copiado alguno de los programas de este libro u otros, habrás observado, sin duda, que 
se pueden crear sorprendentes efectos y gráficos usando los simples comandos PLOT y DRAW. 

La pantalla de tu ordenador está formada por pixels (puntos) que pueden ser encendidos o apa- 
gados. Este proceso se controla mediante los cambios de color en la tinta y el papel y usando el 
comando PLOT como sigue: 


PLOT 150,149 
Esto pondrá un pixel en (150,149) utilizando el color de tinta actual; este punto puede ser borra- 
do, si fuera necesario, cambiando el color de la tinta al color de papel y reescribiendo el pixel. 
La simple rutina siguiente hará que un pixel se encienda y apague: 


10 PAPER O 
20 INK 7 

ZO PLOT 100,50 
20 INE O 

50 PLOT 100,50 
60 GO TO 20 


Igual que puntos individuales, pueden ser dibujadas líneas en la pantalla; esto se realiza usando 
el comando DRAW. Este comando creará una línea desde la posición actual del PLOT en la direc- 
ción especificada por sus dos parámetros. 


Ejemplo 
Para dibujar una línea desde el 10,10 hasta el 20,15 necesitamos dos órdenes: 


PLOT 10,10 
DRAW 10,5 


La primera de ellas coloca el PLOT en posición y la segunda dibuja la línea. 

Para quien esté familiarizado con la notación matemática, los parámetros de un comando DRAW 
son como un vector columna escrito según sus coordenadas. Como en un vector, los parámetros 
pueden ser positivos (arriba y derecha), negativos (abajo e izquierda) o cero, que produce líneas 
horizontales o verticales. 

El comando DRAW también puede ser usado para la construcción de curvas, dotándose de un 
parámetro extra para indicar el grado de curvatura (dado en radianes). Recuerda que hay 2 Pl radia- 
nes en una circunferencia; por tanto, para construir una semicircunferencia el siguiente comando 
puede ser usado: 


DRAW 50,10,PI 


1- 


Algunos de los efectos especiales que se pueden conseguir con el empleo de estos comandos 
se verán en el título del programa en la pantalla. 


Instrucciones de juego 


El objeto del juego es encontrar la Espada de Roac, pero antes de eso debes completar una serie 
de requisitos. El primero de ellos es encontrar la llave que te permitirá entrar en la habitación donde 
está escondida la espada. Otro requisito será conseguir experiencia suficiente, matando monstruos, 


para derrotar al Overlord. 


Monstruos 


Durante tus viajes a lo largo del laberinto encontrarás numerosos monstruos, algunos de los 
cuales están descritos a continuación. 


MINOTAUROS 


DRAGONES 


UNICORNIOS 


Estas criaturas medio hombre, medio toro, no causarán mayores proble- 
mas a un poderoso guerrero como tú. 


Estos son los más poderosos, y es inútil intentar matarlos sin un arma 
especial. Desafortunadamente una vez que te los encuentras no te deja- 
rán escapar, por lo que es imperativo para ti localizar y memorizar las 
guaridas de los dragones. 


Un ser desconocido, amistoso o peligroso; nunca lo sabrás. 


Cuando encuentras y atacas un monstruo, el resultado del combate depende de varios factores. 


EXPERIENCIA 


FUERZA 


AGILIDAD 


TECNICA 


Se incrementa con cada batalla que ganas. Necesitarás una gran dosis 
de experiencia para luchar con el Evil Overlord. 


Esta concierne a tu condición física en general, y decrece durante el jue- 
go. Puede ser repuesta comiendo una comida, pero sólo tienes diez co- 
midas disponibles, luego úsalas sabiamente. 


Se refiere a tu habilidad para moverte rápidamente durante el combate 
y hacer rápidas huidas si fuera necesario. 


Es tu nivel general de habilidad en la lucha y permanece constante du- 
rante todo el juego. 


Todos estos parámetros son tomados en consideración durante el combate, y sus valores deben 
ser observados cuidadosamente durante el juego. 
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A AAA a 


Comandos 


A O O 
¡ 

| PETT PRE FREE | 
2 

a , PA | 

A jamás | Laa 

| e PERA | 
| | cd 

A: O. OA | 

A J o A Le] 

EE MERO DA 

| e: 

Las j 

| | 
A ' 


E di OOO E OO Judd 
E LR LS 


Duero 


Aunque este juego es básicamente gráfico, con un laberinto tridimensional en la pantalla, mu- 
chos de los comandos son introducidos de manera similar a las aventuras puramente textuales, y 
algunos están descritos a continuación. 


COGE 
ABRE 
COME 
MATA 


PIDE 
SALVA 
ADIOS 


Movimientos 


Usado para coger un objeto. 
Usado para abrir una puerta, cofre, etc. 
Incrementará tu fuerza, pero recuerda que sólo tienes diez comidas. 


Este comando, usado por sí solo, inicia una lucha desarmada con un monstruo. 
Si se quiere usar un arma debe ser especificada; por ejemplo, mata al dragón con 
la espada. 


Puede ser usado para pedir información o ayuda a seres amistosos. 
Salva el juego en cinta en su estado actual. 


Se interrumpe el programa. 


Hay cuatro comandos relativos al movimiento por el laberinto, y están mostrados en la tabla 3. 
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TABLA 3 
Comando Dirección 
OESTE Movimiento al oeste 
NORTE Movimiento al norte 
ESTE Movimiento al este 
SUR Movimiento al sur 


Listado 


IMPORTANTE 


1) El programa debe ser tecleado con CAPS LOCK. 
2) Los espacios entre las palabras deben ser introducidos tal como están. 


LL: 


A : 
A e e e cr : 


5 CLEAR — ==». --——.—-—-—..[ 1350 LES AbSARST Ss 6. 
6 POKE 23658,8 . E - nu . 2. +... na ..... . 


| 
O! 10 LET Da ARA 


3 LET Ab=Ab$bt+"..o.onncnn noo nnoasa .....o.asn 


y O .coscsssssa as. .. dE 
..” 150 LET AS$=A$+". . 2... . 
O 20 LET As=A$+ E .....:2.<.... H - . . G n . a. nn... ..u 


E 160 LET AS=A$+%. . ... ....+ . 


3O LET A$=8$+"..M G... Ss |... . ...... 
Cc .S . 5 . «.. can .. HH s 


. .e.ossanoa . e H Hi 


170 LET A$=A$+". U E 


A . .a 2... «an. +. +. 2 


40 LET A$=A$+". PO 
a . .... ..0. “. . ss. 1) Z O DA a LA 


50 LET A$=A$+" . . ..... .. a | — — —  ¿)"*...04:8.48 .. . . ss cc nmoOP<—.n.n.n anos . e 
. - a -. nn... . D nu. ..o. a 
A 190 LET A$=8$+". ... +». +2. + 


7: 60 LET AS=A$+": sisrnrosa «.S . E, 3 E E 
Valeo Dc da adi mer «e .* 
Me 200 LET ARSASE". .... ...s 
70 LET AS=AS$+". ....... E PE laa > ASEGRA A 
E - E EA o 
O a 210 LET AS=ASP". 2... «<= 8 


80 LET ASSAS+"...o.n...o eos. nos . ” n eno cp26c asa . .a. ... O ES 
. 1 ." 


i A 220 LET AS=A$+". 2... . Eo.. 
An 290 LET AaAst=A$+" - 1 ce nosn< ss. 1) . ec... a. . a Z -. —»—  .n2..0o.o..oo. o. ».n = 
nn <Q... an | ...a L . se 


2. 230 LET A$=A$+". .... ...: 
O 100 LET A$=A$+"...... Z n< 000x000... ..00.0.. +... ...-... .. a 
ns.0bo0. n Ss e... . «... E Z . ..... .. mr 
A TÓ 240 LET A$=A4$+". ....S ...» 
3 dl 10 LET As=A$+" 2... 2. 2... ...... . H » 
mM . . . .... n.a ús an 
..” 250 LET A$S=A$+"...oooonan....- 
120 LET as=4A+$+ " 920,08. — UAT A 2 cen... 0.0». ...... 2. ..<...< «<<... nu. ... . 


PA FIA dm 0 ob AI Paro 


E > A 
AAA AAAATUAÓNÓ[PV XP 9 cn mera mr 


O 


oO 0 


O 


900 GO SUB 9200 
1000 PAPER O: INK 6: 
LS 
1010 PLOT 7,63: DRAW 247,0: DRAW 

0,105: DRAW -247,0: DRAW 0,-105 
: PLOT 7,63: DRAW 247,0: PLOT 16 
0,168: DRAW 0,-104 
1020 INK 7: BRIGHT 1: PRINT AT 2 
¿2153 "FUERZA"3AT 3,283"100"5AT 4, 
213 "AGILIDAD"; AT 5,283"100"3AT 6 
¿2153 "TECNICA"5AT 7,283" 10"3AT 8 
,215"COMIDAS"5AT 9,283" 10"3AT 1 
0,21;"EXPERIENCIA"3AT 11,283" 0 


BORDER O: € 


1030 LET 0=1252 

1035 LET FALL=0 

1040 LET D$="N"z LET ST=100: LET 
DEX=100: LET SKI=10: LET MEA=10 
: LET EXP=0: LET DS=0: LET KOR=0 
: LET MON=0: LET QUEST=0 | 

1100 GD SUB 2000 

1110 GO TO 4000 

1999 STOP 

2000 INK O: FOR I=1 TO 13: PRINT 
AT 1,15" "on 

EXT lz INK 7: BRIGHT 1: 1F D$<>" 

N" THEN GO TO 2100 

2002 PRINT AT 2,83 "NORTE": 
(0-50)="." THEN GO TO 2010 
2004 IF A$(D0-51)="." THEN PLOT 

52,136: DRAW 20,-8: DRAW 0,-24: 

DRAW -20,-8 

2005 IF A$(0-49)="." 
115,136: DRAW -20,-—8: 
* DRAW 20,-8 

2006 IF A$(D-5S1)<>"." THEN PLOT 
52,128: DRAW 20,0: PLOT 52,128: 
DRAW 0,-24: PLOT 52,104: DRAW 2 

0,0: IF A$(0-100)<>"." THEN PLO 
T 72,128: DRAW 0,-24 

2007 IF A$(D-49)<>"." THEN PLOT 
97,128: DRAW 18,0: PLOT 115,128 
: DRAW 0,-24: PLOT 97,104: DRAW 
18,0: IF A$(0-100)<>"." THEN PL 

OT 97,128: DRAW 0,-24 

2008 IF A$(D0-100)="." THEN PLOT 
72,128: DRAW 24,0: PLOT 72,104: 
DRAW 24,0 

2010 IF A$(0-1)="." THEN PLOT 8 
,152: DRAW 44,-16: DRAW 0,-40: D 
RAW -44,-16 
2020 IF A$(0+1)=". 
59,152: DRAW -44,-16: 
: DRAW 44,-16 


IF AS 


THEN PLOT 
DRAW 0,-24 


" THEN PLOT 1 
DRAW 0,-40 


2040 IF A$(0-1)<>"." THEN PLOT 
8,136: DRAW 44,0: PLOT 8,96: DRA 
W 44,0: PLOT 52,136: DRAW 0,-40 
2050 IF A$(0+1)<>"." THEN PLOT 
115,136: DRAW 44,0: PLOT 115,96: 
DRAW 44,0: PLOT 115,136: DRAW O 
40 

2060 IF A$(0-50)="." THEN PLOT 
52,136: DRAW 63,0: PLOT 52,96: D 
RAW 63,0 

2070 RETURN 
2100 IF D$<>"S" 
2102 PRINT AT 2,93"SUR": 
+50)="." THEN GO TO 2110 
2104 IF A$(0+51)="." THEN PLOT 
52,136: DRAW 20,-8: DRAW 0,-24: 
DRAW -20.-8 


THEN GO TO 2200 
IF A$S(D 


2105 IF A$(0+49)="." THEN PLOT 

115,136: DRAW -20,-8: DRAW 0,-24 
: DRAW 20,-8 

2106 IF A$(0+51)<>"." THEN PLOT 
52,128: DRAW 20,0: PLOT 52,128: 
DRAW 0,-24: PLOT 52,104: DRAW 2 
0,0: IF A$(0+100)<>".” THEN PLO 
T 72,128: DRAW 0,-24 

2107 1F A$(0+49)<>"." THEN PLOT 
97,128: DRAW 18,0: PLOT 115,128 
: DRAW 0,-24: PLOT 97,104: DRAW 

18,0: IF A$(0+100)<>"." THEN PL 
OT 97,128: DRAW 0,-24 

2108 IF A$(0+100)="." THEN PLOT 


72,128: DRAW 24,0: 
DRAW 24,0 

2110 IF A$(0+1)="." 
152: DRAW 44,-16: 
RAW -44,-165 

2120 IF A$(0-1)="." THEN PLOT 1 
59,152: DRAW -44,-16: DRAW 0,-40 
: DRAW 44,-16 


PLOT 72,104: 


THEN PLOT 8 
DRAW 0,-40: D 


2140 IF A$(0+1)<>"."” THEN PLOT 
8,136: DRAW 44,0: PLOT 8,96: DRA 
W 44,0: FLOT 52,136: DRAW 0,-40 
2150 IF A$(0-1)<>"." THEN PLOT 
115,136: DRAW 44,0: PLOT 115,96: 
DRAW 44,0: PLOT 115,136: DRAW O 
.—40 
2160 IF A$(0+50)="." THEN PLOT 
52,136: DRAW 63,0: PLOT 52,96: D 
RAW 63,0 


2170 RETURN 


2200 IF D$<>"W" THEN GO TO 2300 


IF A$ 


2202 PRINT AT 2,83"OESTE”: 
THEN GO TO 2210 

THEN PLOT 
DRAW 0,-24: 


(0-1)="." 
2204 IF A$(0+49)="." 
52,136: DRAW 20,-8: 
DRAW -20,-8 


O RS AS 


AAA 


| 


j 
| 
| 
| 
: 
1 
o 
! 
| 


2205 IF A$(0-51)="." THEN PLOT 
115,136: DRAW -20,-8: DRAW 0,-24 
: DRAW 20,-8 
2206 IF A$(0+49)<>"." THEN PLOT 
52,128: DRAW 20,0: PLOT 52,128: 
DRAW 0,-24: PLOT 52,104: DRAW 2 
0,0: IF A$(0-2)<>"." THEN PLOT 
72,128: DRAW 0,-24 
2207 IF A$(0-51)<>"." THEN PLOT 
97,128: DRAW 18,0: PLOT 115,128 
: DRAW 0,-24: PLOT 97,104: DRAW 
18,0: IF A$(0-2)<>"." THEN PLOT 
97,128: DRAW 0,-24 


" THEN PLOT 7 
PLOT 72,104: D 


2208 IF A$(0-2)=". 
2,128: DRAW 24,0: 
RAW 24,0 

2210 IF A$(0+50)=". 
8,152: DRAW 44,-16: 
DRAW -44,-16 

2220 IF A$(0-50)=". 


" THEN PLOT 
DRAW 0,-40: 


" THEN PLOT 


159,152: DRAW -44,-16: DRAW 0,-4 
O: DRAW 44,-16 
2240 IF A$(D0+50)<>"." THEN PLOT 


8,136: DRAW 44,0: PLOT 8,96: DR 
AW 44,0: PLOT 52,136: DRAW 0,-40 
2250 IF A$(0-50)<>"." THEN PLOT 

115,136: DRAW 44,0: PLOT 115,96 
: DRAW 44,0: PLOT 115,136: DRAW 
O,-40 


2260 IF A$(0-1)="." THEN PLOT $ 


2,136: DRAW 63,0: PLOT 52,96: DR 
AW 563,0 

2270 RETURN 

2302 PRINT AT 2,83"ESTE": IF A$( 
O+1)="." THEN GO TO 2310 

2304 IF A$(0-49)="." THEN PLOT 
52,136: DRAW 20,-8: DRAW 0,-24: 
DRAW -20,-8 

2305 IF A$(0+51)="." THEN PLOT 
115,136: DRAW -20,-8: DRAW 0,-24 


: DRAW 20,-8 

2306 IF A$(0-49)<>"." THEN PLOT 
52,128: DRAW 20,0: PLOT 52,128: 
DRAW 0,-24: PLOT 52,104: DRAW 2 


0,0: IF A$(0+2)<>"." THEN PLOT 
72,128: DRAW 0,-24 

2307 1F A$(O+51)<>"." THEN PLOT 
97,128: DRAW 18,0: PLOT 115,128 
: DRAW 0,-24: PLOT 97,104: DRAW 
18,0: IF A$(0+2)<>"."” THEN PLOT 


DRAW 0,-24 
" THEN PLOT 7 
PLOT 72,104: D 


97,128: 
2308 IF A$(0+2)=". 
2,128: DRAW 24,0: 
RAW 24,0 

2310 IF A$(D-50)=". 
8,152: DRAW 44,-16: 


" THEN PLOT 
DRAW 0,-40: 


DRAW -44,-16 


2320 IF A$10+50)="."” THEN PLOT 


159,152: DRAW -44,-16: DRAW 0,-4 
O: DRAW 44,-16 
2340 IF A$(0-50)<>"." THEN PLOT 


8,136: DRAW 44,0: PLOT 8,96: DR 
AW 44,0: PLOT 52,136: DRAW 0,-40 
2350 IF A$(0+50)<>"." THEN PLOT 

115,136: DRAW 44,0: PLOT 115,96 
: DRAW 44,0: PLOT 115,136: DRAW 
0,-40 
2360 IF A$(0+1)=". 
2,136: DRAW 63,0: 
AW 63,0 
2370 RETURN 
4000 LET J$="": PRINT AT-:15,13 1 
NK 75 BRIGHT 13">" 


4005 PRINT AT 15,23” 
"z FOR I=16 T 


PRINT AT 1,03” 
*s MEXT 1 


IF K$="" THE 


"» THEN PLOT 5 
PLOT 52,96: DR 


O 21: 


4010 LET K$=INKEYS$: 
N GO TO 4010 

4020 BEEP .05,30 

4030 IF CODE K$=13 THEN 60 TO 4 
100 

4040 IF CODE K$=12 AND J$="" THE 
N GO TO 4000 

4050 IF CODE K$=12 THEN LET J$= 
J$(1 TO (LEN J$-1)): FOR I=15 TO 
21: PRINT AT 1,03" 

"s NEXT I: 
GO TO 4010 


PR 
INT AT 15,13">"3J%: 

4052 LET J$=J$+K$ 

4060 PRINT AT 15,253% 

4070 GO TO 4010 A 

4100 LET J$=J$+" ": LET LAST=1: 
DIM 0$(20,20) 
4120 LET V=1: 
4122 IF J$(1)=" 
)=J$ (LAST TO 1-1): 
LET V=4+1 

4125 NEXT 1 

4142 FOR I=1 TO V-1 

4143 IF 0$(1) (1 TO 2)="EL" OR 0$ 
(1) (1 TO 2)="A " OR Q$(1) (1 TO 2 


FOR I=i TO LEN J$ 
" THEN LET Q$6(V 
LET LAST=I+1: 


)="AL" OR 0$(1) (1 TO 2)="LA" THE 
N FOR H=1I+1i TO V:z LET Q$(H-1)=Q 
$(H): NEXT H 


4144 NEXT I 
4145 GO TO 4200 


4150 LET RND=RND: 1F RND>.8 THEN 


PRINT AT 21,25"NO ENTIENDO, RE 
PITE": FOR I=1 TO 50: NEXT l: GO 
TO 4000 


4160 IF RND>.6 THEN PRINT AT 21 


O, O GO 0 


O 


O 


O DO O 


== A A [e e 


AAA AAA e me TO PASITO 


Lal 


,23"NO TE OIGO, INTENTALO DE NUE 


VO": FOR I=1 TO 50: NEXT Il: GO T 
O 4000 

4170 PRINT AT 21,2;3"COMO 22": FO 
R I=1 TO 50: NEXT l: GO TO 4000 

4200 IF MON=1 AND A$(0)="F" AND 

0$(1) (1 TO 4)<>"MATA” THEN GO S 


UB 9800: PRINT AT 16,2;"EL OVERL 
ORD CLAVA SU ESPADA EN TU CORAZ 


ON. ESTAS MUERTO": GO TO 29500 
4205 IF 0$(1) (1 TO 4)="MIRA” THE 
N GO TO 4400 

4210 IF 0$(1)(1 TO 4)="COGE" THE 
N GO TO 4500 

4220 IF 0$(1)(1 TO 4)="ABRE” AND 
Q$(3) (1 TO 3)="CON" THEN GO TO 
4700 

4230 IF 0$(1) (1 TO 4)="ABRE"” THE 
N GO TO 4600 

4240 IF 0$(1) (1 TO 4)="COME"” THE 


N GO TO 4800 


4260 IF 0$(1) (1 TO 5)="ADIOS” TH 


EN STOP 


¡4270 IF Q6(1) (1 TO 5)="SALVA” TH 
¡ EN GO TO 5100 
4280 IF 0$(1) (1 TO 8)="RECUPERA"” 


THEN (GO TO 5200 


4290 IF 0$(1) (1 TO 4)="MATA" THE 
N GO TO 5300 
4300 IF 0$(1)(1 TO 4)="PIDE" THE 
¿N GO TO 5400 
' 4310 IF 0$(1)(1 TO 3)="SAL"” THEN 


GO TO 35500 
¡| 4320 1F 0$(1) (1 TO 5)="0ESTE” TH 
¿EN GO TO 5600 


, 4330 IF 0$(1)(1 TO 4)="ESTE" THE 
¿N GO TO 5700 
4340 IF 0$(1) (1 TO 3)="SUR” THEN 


GO TO 5800 
¡4350 IF 0$(1)(i TO 5)="NORTE” TH 
EN (G0 TO 5900 


: 4360 GO TO 4150 


4400 GO SUB 2000 

: 4410 GO TO 7000 

(4500 IF Q$(2) (1 TO 12)="MATADRAG 

' ONES” THEN GO TO 4520 

4501 IF 0$(2)(1 TO 6)="ESPADA” A 

¿ ND 0$(3) (1 TO 2)="DE” AND Q$(4) ( 

¡1 TO 4)="ROAC" THEN GO TO 4530 

: 4502 IF 0$(2) (1 TO 5)="LLAVE” AN 

D Q$(3) (1 TO 2)="DE" AND Q$(4) (1 
TO 4)="ROAC” THEN GO TO 4510 

¡4503 IF 0Q$(2) (2)=" " THEN GO su 
B 9800: PRINT AT 16,253"COGER QUE 
2": GO SUB 9800: GO TO 4000 

4505 GO SUB 9800: PRINT AT 16,25 


"ESO NO ESTA AQUI": GO SUB 9800: 
GO TO 4000 
4510 IF A$(0)="K" THEN GO SUB 9 
800: PRINT AT 16,2;3”COGES LA LLA 
VE DE ROAC, QUE TE PERMITIRA AB 
RIR LA PUERTA QUE PROTEGE LA 6 
RAN ESPADA DE ROAC— GUARDALA BIE 
N.":z FOR I=1 TO 200: NEXT 1: LET 
KOR=0: GO SUB 9800: LET A$(0)=" 
": GO TO 4000 
4515 GO SUB 9800: 
"ESO NO ESTA AQUI": 
GO TO 4000 
4520 IF A$(0)="S"” THEN GO SUB 9 
800: PRINT AT 16,2;3"COGES EL MAT 
ADRAGONES, QUE TE DARA FODER P 
ARA MATAR A TODOS LOS DRAGONES 
.": LET DS=1: GO SUB 9800: LET A 
$(0)=" ": GO TO 4000 
4525 GO SUB 9800: PRINT AT 16,2; 
"ESO NO ESTA AQUI": GO SUB 9800: 
GO TO 4000 
4530 IF O=1199 AND A$(0)=" ” THE 
N GO SUB 9800: PRINT AT 16,2;"C 


PRINT AT 16,2; 
GO SUB 9800: 


OGES LA ESPADA DE ROAC.": GO SUB 
9800: LET QUEST=1: LET A$(1242) 
="T": LET A$(0)=" ": GO TO 4000 


PRINT AT 16,2; 
GO SUB 9800: 


4540 GO SUB 9800: 
"ESO NO ESTA AQUI”: 
GO TO 4000 
46500 IF 0$(2) (1 TO 9)="TRAMPILLA 
" AND A$(0)="T" THEN GO SUB 980 
Oz: PRINT AT 16,2;3”"LA TRAMPILLA S 
E ABRE Y BAJAS. UN TUNEL TE CO 
NDUCE FOR UNA GRIETA AL LADO 
DE UN CORREDOR.": FOR 1=1 TO 10 


O: NEXT lí GO SUB 98007 LET 0=(0 
<>1242)+*1295+ (0=1242)*1239: LET 
D$="E": GO SUB 2000: GO TO 4000 


4604 IF A$(0)<>"F"” THEN GO TO 4 
610 

4605 IF 0$(2) (1 TO 4)="REJA” AND 
0$ (5) (1)<>" " AND RND>.2 THEN 


GO SUB 9800: PRINT AT 16,253"LA R 


EJA SE ABRE LENTAMENTE.”": LET As$ 
(D)=" "z LET A$(0-50)=" "z LET A 
$(04+50)=" ":z GO SUB 2000: GO SUB 
9800: GO TO 4000 


4607 1F 0$(5) (1)=" " THEN GO SU 
B 9800: PRINT AT 16,25”QUE LLAVE 
7": GO SUB 9800: GO TO 4000 
4609 IF 0Q$(2) (1 TO 4)="REJA" THE 
N GOD SUB 9800: PRINT AT 16,23" 


OGISTE LA LLAVE EQUIVOCADA. u 
NA TRAMPA SE ABRE DEBAJO DE 1d 
I Y CAES... 550.» H 


O Lg 


O 


G_0 8 0 


pe 


ASTA QUE CHOCAS CON EL FONDO. E 
STAS MUERTO. ": FOR I=1 TO 200: N 
EXT Il: GO SUB 9800: GO TO 9900 
4610 IF 0$(2) (1 TO 6)="PUERTA" A 
ND-A$1(0)="L” THEN GO SUB 9800: 
PRINT AT 16,2;"LA PUERTA ESTA CE 
RRADA.": GO SUB 9800: GO TO 4000 
4620 IF 0$(2) (1 TO 6)="PUERTA" A 
ND A$(0)="0" THEN GO SUB 9800: 
PRINT AT 16,2;3"LA COLOSAL PUERTA 
DE HIERRO SE DESLIZA A UN LADO 
Y APARECE EL TEMPLO DE LA MUER 


TE.": LET A$(0+50)="F": LET A$(0 
)=" "z GO SUB 2000: FOR I=1 TO 3 
: NEXT Il: GO SUB 9800: GO TO 40 

00 

46590 GO SUB 9800: PRINT AT 16,2; 
"NO VEO NADA PARA ABRIR.": GO SU 

B 9800: GO TO 4000 

4700 IF A$(0)="L" AND Q$(2) (1 TO 
6)="PUERTA" AND Q$(3) (1 TO 3)=" 

CON" AND Q$(4)(1 TO 5)="LLAVE"” A 


ND 0$(5) (1 TO 2)="DE" AND Q$(6) ( 
1 TO 4)="ROAC" THEN GO SUB 9800 
: PRINT AT 16,2;"QUITAS EL CERRO 
JO Y LA LLAVE DESAPARECE.":=z L 


ET KOR=0: LET A$(0)="0":z 60 SUB 
9800: GO TO 4000 

dE” IF A$(0)="P" THEN GO TO 46 
4710 IF A$(0)<>"L" THEN GO SUB 


NADA 
GO T 


9800: 
PARA ABRIR.": 
O 4000 
4720 GO SUB 9800: 
"NO TE ENTIENDO, REPITE.": 
B 9800: GO TO 4000 
4800 IF MEA>O THEN LET MEA=MEA- 
1: LET ST=100: PRINT AT 3,283"10 
0": GO SUB 9800: PRINT AT 16,23” 
COMES UNA DE LAS COMIDAS.": PRIN 
T AT 9,283" "3MEA: GO SUB 9800: 
GO TO 4000 
4810 GO SUB 9800: 
"NO TE QUEDAN COMIDAS.”: 
9800: GO TO 4000 
5100 DIM S(9) 
5110 LET S(1)=0: LET S(2)=ST: LE 
T S(3)=DEX: LET S(4)=SKI: LET S( 
5)=MEA: LET S(6)=EXP: LET St7)=k 
OR: LET S(8)=QUEST: LET S(9)=MON 
5120 FOR I=1 TO 100: NEXT Il: SAV 
E "ROACDATA"” DATA S(): GO SUB 98 
00: GO TO 4000 
5200 INK O: PRINT AT 21,03" "3: 
LOAD "" DATA S() 


PRINT AT 16,23"NO VEO 
GO SUB 9800: 


PRINT AT 16,2; 
60 su 


PRINT AT 16,25 
GO SUB 


5210 LET O=S(1): LET ST=S(2): LE 
T DEX=S(3): LET SKI=S(4): LET ME 
A=S(5): LET EXP=S(6): LET KOR=S( 
7): LET QUEST=S(8): LET MON=S (9) 
: GO SUB 9800: GO TO 4000 
5301 IF MON=0 THEN GO SUB 9800: 
PRINT AT 16,253"NO VEO.NADIE A Q 
UIEN MATAR.": GO SUB 9800: GO TO 
4000 
5305 IF 0$(2) (1 TO 8)<>"OVERLORD 
" AND Q$(2) (1 TO 5)<>"HIDRA” AND 
Q$6(2) (1 TO 6)<>"DRAGON" AND Q$( 
2)(1 TO 9)<>"MINOTAURO"” THEN GO 


SUB 9800: PRINT AT 16,23 "MATAR 
A QUIEN ?": GO SUB 9800: GO TO 4 
000 


5306 IF 0$(4) (1 TO 12)="MATADRAG 
ONES” AND DS=0 THEN GO SUB 9800 
: PRINT AT 16,253"NO TIENES UN MA 
TADRAGONES.": GO SUB 9800: GO TO 
4000 

5307 IF 0$(2) (1 TO 9)="MINOTAURO 
" AND A$(0)<>"M" THEN GO SUB 98 
00: PRINT AT 16,25"NO VEO AL MIN 
pa GO SUB 9800: GO TO 400 


5308 IF A$(0)="G"” AND DS=1 AND Q 
$(2) (1 TO 6)="DRAGON” AND Q$(3) ( 
1 TO 3)="CON" AND Q$(4) (1 TO 12) 
="MATADRAGONES” THEN LET MON=0: 
GO SUB 9800: LET A$(0)=" PRI 
NT AT 16,23"EL DRAGON CAE MUERTO 


A TUS PIES. EL MATADRAGONE 
S SE ILUMINA Y DESAPARECE 
.": LET DS=0: FOR I=1 TO 50: NEX 
T 1: GO SUB 9800: LET EXP=EXP+IN 


T (100*RND): PRINT AT 11,31-LEN 
(STR$ EXP)5EXP: GO TO 4000 

5309 IF Q6$(2) (1 TO 5)="HIDRA" AN 

D A$(0)<>"H" THEN GO SUB 9800: 

PRINT AT 16,23"NO VEO LA HIDRA." 
: GO SUB 9800: GO TO 4000 

5310 IF A$(0)<>"G” AND 0Q$(2) (1 T 
O 6)="DRAGON" THEN GO SUB 9800: 
PRINT AT 16,23"NO VEO AL DRAGON 
. GO SUB 9800: GO TO 4000 

35313 IF 0$(2) (1 TO 8)="0O0VERLORD” 
AND A$(0)<>"F" THEN GO SUB 980 
O: PRINT AT 16,2;5"NO VEO AL OVER 
LORD.": GO SUB 9800: GO TO 4000 
5315 LET EAS=EST+EDEX+ESKI+INT ( 
10*RND) 

5320 LET AS=EXP+ST+DEX+SKI+INT ( 
10*RND) 

5330 IF AS>EAS THEN GO TO 5350 
5335 LET RND=RND: IF RND>.8 THEN 


O OO O O O 0 0 0: 


O e. 


O 


O 0Ó Ó 6 60 60 adsoe 


o q,u4 


O O O 


O 


GO SUB 9800: PRINT AT 16,23"TU 
FALLAS Y EL SE VENGA. TE 
DEJA SIN CONOCIMIENTO Y TE - MA 

TA.": FOR I=1 TO 200: NEXT I: GO 
TO 9900 

5336 IF RND>.6 THEN GO SUB 9800 
: PRINT AT 16,2;3"TU ESPADA ATACA 
Y GANAS.": FOR I=1 TO 100: NEXT 

I: GO SUB 9800: LET DEX=DEX-INT 
(3O%*RND): PRINT AT 5,283” "3DEX 
: IF DEX<10 THEN PRINT AT 5,28; 
"» 0%s 60 TO 9900 

5337 IF RND>.6 THEN GO TO 4000 
5340 IF RND>.4 THEN (60 SUB 9800 
: PRINT AT 16,2;"TE ESQUIVA Y TE 
HIERE EL LA CABEZA. ": FOR 1 
=1 TO 50: NEXT Il: GO SUB 9800: L 
ET ST=ST-INT (S5O*RND): PRINT AT 
3,283" "358T: IF ST<10 THEN PRIN 
T AT3283" 0”: 60 TU 9900 
5342 IF RND>.4 THEN 60 TO 4000 


5343 IF RND>.2 THEN 60 SUB 9800 
: PRINT AT 16,2;3"PARA TU GOLPE Y 


TE LANZA AL SUELO. ": FOR I= 
1 TO 100: NEXT 1: GO SUB 9800: L 
ET ST=ST-INT (40%*RND): PRINT AT 


3,2983" "55T: IF ST<10 THEN PRIN 

T AT 3,283" 0% '60 TO 9900 

5344 IF RND>.2 THEN (GO TO 4000 

5345 GO SUB 9800: PRINT AT 16,25 

"FALLAS Y TE HIERE LAS PIERNAS 
IMPIDIENDOTE LOS MOVIMIENTOS. ": 


FOR I=1 TO 150: NEXT 1: GO SUB 
9800: LET DEX=DEX-INT (40*RND) : 
PRINT AT 5,283" "53DEX: IF DEX<10 

THEN PRINT AT 5,283" 0": GO T 
a 9900 
5346 GO SUB 9800: GO TO 4000 


5390 LET RND=RÑD: IF RND>.8 THEN 
GO SUB 9800: LET MON=0: PRINT 
AT 16,2; "ATACAS A SU CUELLO Y CO 
NSIGUES ALCANZARLO. LA SANGRE M 
ANA Y TIENE UNA MUERTE TERRIB 
LE.": FOR I=1 TO 100: NEXT I: GO 
SUB 9800: LET EXP=EXP+INT (100% 
RND): PRINT AT 11,31-LEN (STR$ E 
XP)5EXP: LET A$(0)=" ": GO TO 40 

00 

5359 IF RND>.6 THEN GO SUB 9800 
: LET MON=0: PRINT AT 16,25"CLAV 

AS LA ESPADA EN SU CABEZA": FOR 
I=1 TO 50: NEXT Il: GO SUB 9800: 
LET EXP=EXP+INT (100*RND): PRINT 
AT 11,31-LEN (STR$ EXP)5EXP: LE 
T A$(0)=" ": GO TO 4000 

5360 IF RND>.4 THEN GO SUB 9800 


: LET MON=0: LET A$(D)=" ": PRIN 
T AT 16,23"LE ATRAVIESAS CON TU 
ESPADA Y CAE MUERTO A TUS PIES." 
: FOR I=1 TO 50: NEXT Il: GO SUB 
9800: LET A$(0)=" ": LET EXP=EXP 
+INT (100%RND): PRINT AT 11,31-L 
EN (STR$ EXP)5EXPF: GO TO 4000 
5370 LET MON=0: GO SUB 9800: PRI 
NT AT 16,2;"LE ATACAS POR DETRAS 


Y MUERE INSTANTANEAMENTE. ”: 
FOR I=1 TO 100: NEXT Il: GO SUB 9 
800: LET A$(0)=" ": LET EXP=EXP+ 


INT (100%RND): PRINT AT 11,31-LE 
N (STR$ EXP)5EXP: GO TO 4000 
5400 IF 0$(3) (1 TO 9)="UNICORNIO 
" AND Q$6(2) (1 TO 5)="AYUDA" THEN 
GO TO 5420 

5410 GO SUB 9800: PRINT AT 16,2; 
"NO PUEDES HACER ESO AQUI.”: 60 
SUB 9800: GO TO 4000 

5420 IF A$(0)<>"U"” THEN GO SUB 


9800: PRINT AT 16,2;5"NO VEO AL U 
NICORNIO.": GO SUB 9800: GO TO 4 
000 


5430 GO SUB 9800: PRINT AT 16,2; 
"EL UNICORNIO DICE: LA ESPADA 
DE ROAC DESCANSA EN EL TEMPLO 
DE LA MUERTE. PARA ENTRAR 
NECESITAS LA LLAVE DE ROAC." 
5440 FOR I=1 TO 250: NEXT 1: 60 
SUB 9800: GO TO 4000 

5500 IF A$(0)<>"1" THEN GO SUB 
9800: PRINT AT 16,2;3"NO VEO NADA 
DE DONDE SALIR.": GO SUB 9800: 
GO TO 4000 

5510 IF 0$(2) (1 TO 3)="DEL"” AND 
Q$(3) (1 TO 7)="AGUJERO” THEN GO 
TO 5530 

5520 GO SUB 9800: PRINT AT 16,25 
"NO PUEDES HACER ESO AQUI.”: GO 
SUB 9800: GO .TO 4000 

5530 GO SUB 9800: IF ST>30 THEN 
PRINT AT 16,2;3"SALES DEL AGUJER 
D.": LET FALL=0: LET O=0+1: GO S 

UB 2000: GO TO 4000 

5540 PRINT AT 16,2;5"NO TIENES FU 

ERZA SUFICIENTE PARA SALIR D 

EL AGUJERO. PRONTO SERAS ATACAD 

O Y NO PODRAS LUCHAR. ESTA 

S MUERTO": GO TO 9900 

5600 IF A$(0-1)="." THEN GO SUB 
9800: PRINT AT 16,2;3"NO PUEDES 
IR AL OESTE.”: GO SUB 9800: GO T 

O 4000 

5602 IF FALL=1 THEN (GO SUB 9800 
: PRINT AT 16,23"NO PUEDES MOVER 


0 0 0 a a 


O 


GO TO 4000 

GO SUB 9800: 
MONSTRUO BLOQ 
SUB 9800: G0 


GO SUB 9800: 
5603 IF MON=1 THEN 
PRINT AT 16,2;"EL 


TEs "08 


UEA TU CAMINO": GO 
TO 8000 

5610 LET D$="W":z LET O=0-1: 60 S 
UB 2000: GO TO 7000 

5700 IF A$(0+1)="." THEN GO SUB 
9800: PRINT AT 16,25"NO PUEDES 
IR AL ESTE.": GO SUB 9800: GO TO 
4000 

5702 IF FALL=i THEN GO SUB 9800 
z PRINT AT 16,2;5"NO PUEDES MOVER 
TE.": GO SUB 9800: GO TO 4000 

57053 IF MON=i THEN GO SUB 9800: 
PRINT AT 16,2;"EL MONSTRUO BLOQ 


UEA TU CAMINO": GO SUB 9800: GO 
TO 8000 

5/10 LET D$="E": LET O=0+1: GO S 
UB 2000: GO TO 7000 


5800 IF A$(0+50)="." THEN GO SU 

B 9800: PRINT AT 16,2;5"NO PUEDES 
IR AL SUR.": GO SUB 9800: GO TO 
4000 


5802 IF FALL=1 THEN GO SUB 9800 


B 9800: 


: PRINT AT 16,253"NO PUEDES MOVER 
TE.": GO SUB 9800: GO TO 4000 
5805 IF MON=1 THEN GO SUB 9800: 
PRINT AT 16,2;"EL MONSTRUO BLOQ 
UEA TU CAMINO": GO SUB 9800: GO 
TO 8000 
5810 LET D$="S": LET O=0+50: GO 
SUB 2000: IF QUEST=1 AND O=1152 
THEN GOD TO 9000 
3812 GO TO 7000 
5900 IF A$(0-50)="." THEN GO SU 
PRINT AT 16,2;3"NO PUEDES 
IR AL NORTE.": GO SUB 9800: GO 


TO 4000 


5902 IF FALL=i THEN GO SUB 9800 


2 PRINT AT 16,253"NO PUEDES MOVER 


A 


GO SUB 9800: GO TO 4000 


¿35905 IF MON=1 THEN GO SUB 9800: 


PRINT AT 16,2;3"EL MONSTRUO BLOQ 


; UEA TU CAMINO": GO SUB 9800: GO 
. TO 8000 
5910 LET D$="N": LET O=0-50: GO 


: SUB 2000: 
¡7000 IF A$(0)<>"D" 


GO TO 7000 
THEN GO TO 7 
010 


7002 GO SUB 9800: PRINT AT 16,2; 


' "ACABAS DE ENTRAR EN EL TEMPLO 


2: FOR I=1 TO 150: 


DE DOOM. UNA GRAN ROCA CAE 
DETRAS DE TI. NO TIENES SALIDA" 
NEXT l:z GO SUB 
9800 


7004 LET A$(0+50)=".": 
7006 GO TO 4000 
7010 IF A$(0)<>"H" 
020 

7012 GO SUB 9800: PRINT AT 16,2; 
"ESTAS CARA A CARA CON HIDRA. 

ES MUY FUERTE.”": FOR I=i1 TO 100 
: NEXT Il: GO SUB 9800 

7014 LET MON=1: LET EST=80: 
EDEX=90: LET ESKI=30 


LET A$(0) 


THEN GO TO 7 


LET 


7016 GO TO 4000 

7020 IF A$(0)<>"T" THEN GO TO 7 
030 : 

7022 GO SUB 9800: PRINT AT 16,2; 
"VES UNA TRAMPILLA.": GO SUB 980 
0 

7024 GO TO 4000 

7030 IF A$(0)<>"G" THEN GO TO 7 
040 

7032 GO SUB 9800: PRINT AT 16,2; 


"ENCUENTRAS UN DRAGON ECHANDO 
FUEGO POR LA BOCA.": FOR I=1 TO 
100: NEXT Il: GO SUB 9800 

7033 LET MON=1: LET EST=100: 
EDEX=100: LET ESKI=80 

7034 GO TO 4000 

7040 IF A$(0)<>"S" 

050 

7042 GO SUB 9800: PRINT AT 16,2; 

"EN EL SUELO HAY UN 
MATADRAGONES.": FOR I=1 TO 50: 

NEXT Il: GO SUB 9800: GO TO 4000 

7050 IF A$(0)<>"M" THEN GO TO 7 

060 ds 

7052 GO SUB 9800: PRINT AT 16,2; 

"ENCUENTRAS UN MINOTAURO, MITAD 
HOMBRE MITAD TORO.": FOR I=1 
50: NEXT I: GO SUB 9800: LET 

N=1: LET EST=80: LET EDEX=60: 

T ESKI=60: GO TO 4000 

7060 IF A$(0)<>"F" THEN GO TO 7 

070 

7062 GO SUB: 9800: PRINT AT 16,2; 
"ENTRAS EN EL TEMPLO DE LA 
MUERTE Y EL FIN DE TU MISION 
ESTA CERCA. ENFRENTE DE TI 
ESTA EL OVERLORD. DEBES LUCHAR 
CON EL PARA GANAR LA ESPADA DE 
RODAC.": FOR I=1 TO 150: NEXT I: 
GO SUB 9800: LET MON=1: LET EST 

=100: LET ESKI=100: LET EDEX=90: 


LET 


THEN GOD TO 7 


GO TO 4000 
7070 1€ AS(D)<2"K" THEN 6U TO 7 
080 


7072 GO SUB 9800: PRINT AT 16,2; 


O O PB 0 E 4 O O 0 


o 0 


O 


S 0 0 UU O Q UU 


O O OQ 0 0 OO O 0 0 


O 


dd QU 6 6 O 6 O 0 0 O 


o 0 


"AQUI ESTA LA LLAVE DE ROAC.”: 6 
O SUB 9800: GO TO 4000 

7080 IF A$(0)<>"L" THEN GO TO 7 
090 

7082 GO SUB 9800: PRINT AT 16,2; 
"ENFRENTE DE NOSOTROS HAY UNA 


COLOSAL PUERTA DE HIERRO.": GO 


SUB 9800: GO TO 4000 

7090 IF A$(0)<>"P" THEN GD TO 7 
100 

7092 GO SUB 9800: PRINT AT 16,2; 


"ENFRENTE DE TI HAY UNA REJA. 
EN LA PARED HAY DOS LLAVES. 
CUAL DE LAS DOS ELEGIRAS ”? 


LA LLAVE 1 O LA LLAVE 2 2": FOR 
I=1i TO 100: NEXT l: GO SUB 9800 
7094 LET RND=INT (2*RND)+1 
7096 GO TO 4000 
7100 IF A$(0)<>2"N" THEN GO TO 7 
110 
7102 GO SUB 9800: PRINT AT 16,2; 
"ACABAS DE ENTRAR EN EL TEMPLO 
DE LOS REYES. LAS PAREDES 


BRILLAN COMO EL ORO.”: FOR I=1 
TO 50: NEXT I: GO SUB 9800 
7104 LET A$(D)=" ” 
7106 GO TO 4000 
7110 IF AStQ)<>"1" 
120 
7112 GO SUB 9800: PRINT AT 16,2; 
"HAS CAIDO EN UN PROFUNDO 

AGUJERO, POR SUERTE LA ARENA 

AMORTIGUA LA CAIDA.": FOR I=1 T 
O 50: NEXT Il: GO SUB 9800 
7114 LET FALL=1 
7116 FOR I=2 TO 12: 


THEN 60 TO 7? 


PRINT AT 1,1 
NEXT 1 
(40%RND): PRI 


, 
7118 LET ST=5T-INT 


NT ¡(AT 3,285" "55T. IF ST<10 THEN 
PRINT AT 3,283" 0”: GO TO 990 

O 

7119 GO TO 4000 

7120 1F A$(D)<>*"Z" THEN 60 TO 7 

130 

7122 GO SUB 9800: PRINT AT 16,2; 

"LA NIEBLA SUBE POR TUS PIES.": 

GO SUB 9800: GO TO 4000 + 

7130 IF A$(0)<>"E" THEN GO TO 7 

140 

7132 GO SUB 9800: PRINT AT 16,2; 


"OYES UN RUIDO SOBRENATURAL. UN 
SUDOR FRIO SE APODERA DE TI.": 
FOR I=1 TO 100: NEXT Il: GO SUB 9 

800: GO TO 4000 
7140 IF A$(0)<>"C" THEN GO TO 7 
150 


7142 GO SUB 9800: PRINT AT 16,2; 
"OYES UN ALARIDO. NOTAS QUE NO 
ESTAS SEGURO EN ESTE LUGAR.”": F 

OR I=1 TO 100: NEXT Il: GO SUB 98 


00: GO TO 4000 

7150 IF A$(0)<>"Q" THEN GO TO 7 
150 

7152 GO SUB 9800: PRINT AT 16,2; 
"OYES UN RUIDO APAGADO, COMO EL 
DE HIDRA.": FOR I=i TO 50: NEXT 
Il: GO SUB 9800: GO TO 4000 


7160 IF A$(0)<>"U" 
L7O 

7165 GO SUB 9800: PRINT AT 16,2; 
"ENCUENTRAS UN UNICORNIO MUY 


THEN GD TO 7 


AMISTOSO.": GO SUB 9800: GD TO 
4000 

7170 IF A$(0)<>"0" THEN GOD TO 4 
000 


7175 GO SUB 9800: PRINT AT 16,2; 
"LA PUERTA DE HIERRO ESTA SIN 
LLAVE. ":z GO SUB 9800: GO TO 400 
0 
8000 LET RND=RND: IF RND>.6 THEN 
PRINT AT 16,23"TE HIERE EN EL 
CUELLO, PERO SOLO SUPERFICIA 
LMENTE.": FOR I=1 TO 50: NEXT 1: 
GO SUB 9800: GO TO 4000 
8010 IF RND>.3 THEN PRINT AT 16 
25 "EL TE DESGARRA LA GARGANTA. ” 
: LET ST=ST-INT (30*RND): PRINT 
AT 3,2853" "3ST:z IF ST<10 THEN P 
RINT AT 3,283" 0": GO TO 9500 
8020 IF RND>.3 THEN GO SUB 9800 
: GO TO 4000 
8040 PRINT AT 16,2;"TE HIERE EN 
LA PIERNA.”": LET DEX=DEX-INT (10 
*RND): PRINT AT 5,2853" "3DEX: IF 
DEX<10 THEN PRINT AT 5,283" 0 
": GO TO 9500 
8050 GO SUB 9800: GO TO 4000 
9000 BEEP .2,13: BEEP .1,13: 
P .1,13: BEEP .4,13: BEEP .1,13: 
BEEP .1,13: BEEP .2,15: BEEP .2 
.13: BEEP .2,15: BEEP .2,13 
9005 BEEP .1,13: BEEP .1,13: BEE 
P .2,13: BEEP .1,13: BEEP .1,13: 
BEEP .2,13: BEEP .1,13: BEEP .1 


BEE 


,13: BEEP .2,13: BEEP .2,10: BEE 
P .2,11: BEEP .2,13.: BEEP .1,13 
: BEEP .1,13: BEEP .1,13 


9010 PRINT AT 15,15"BIEN HECHO! 

HAS TERMINADO LA AVENTURA. "3A 
T 17,1;3"LA ESPADA DE ROAC ESTA A 
HORA SEGURA EN LAS MANOS DE M 
ISTRAIN.EL OVERLORD NUNCA MAS DO 


MINARA EL MUNDO. ” 
9020 PRINT AT 21,0;"OTRA PARTIDA 
2 (S/N) ” 


9030 IF INKEY$="N" THEN STOP 
9040 IF INKEY$="S" THEN RUN 
9190 GO TO 9030 
9200 BORDER O: PAPER Oz INK 7: B 
RIGHT 1: CLS : PLOT 15,167: DRAW 
-11,-23: DRAW 16,0 
9210 DRAW 0,-2: DRAW -6,-4 
9220 DRAW 4,-8 
9230 DRAW 0,-24: DRAW -4,-8: DRA 
W 6,-4: DRAW —-16,-12: DRAW 0,-2 
9240 PLOT 39,88: DRAW -34,-8 
9250 PLOT 39,88: DRAW 32,46 
9260 DRAW -28,28 
9270 DRAW -20,0: DRAW -7,7 
9280 DRAW —1,-1 
9290 PLOT 36,142: DRAW 0,-24 
9300 DRAW 11,15 
9310 DRAW -11,9 
9330 PLOT 60,144: DRAW 0,5 
9340 DRAW 36,0 
: 9350 DRAW 13,-17 
9360 DRAW -9,-17 
9370 DRAW 26,-38: DRAW -—6,-6 
9380 PLOT 75,110: DRAW 43,-37 
9390 PLOT 75,110: DRAW 0,-6: DRA 
W 2,-2: DRAW -2,-4: DRAW -16,0 
9392 DRAW 3,3: DRAW 0,19 
9394 PLOT 80,135: DRAW 6,-3: DRA 
W —6,-3: DRAW 0,6 
9396 PLOT 104,150: DRAW 36,0: DR 
AW 2,-10 
9397 PLOT 104,150: DRAW -2,-8: D 
RAW 16,0: DRAW —-16,-28 
9398 PLOT 110,104: DRAW 16,10: D 
RAW 0,-6: DRAW -3,-3: DRAW 2,-2: 
: DRAW 16,0: DRAW 4,4 
9399 PLOT 175,146: DRAW -32,-4,P 
0 4 Ze 
9400 PLOT 145,108: DRAW 31,-4,PI 
1 IzS 


9401 DRAW 0,10: 


PLOT 175,146: DR 


AN 0,9 
¡9402 PLOT 145,126: DRAW 18,18: P 


LOT 165,126: 


9404 DRAW 8,-16,P1/2: 


9405 PLOT 183,108: 


DRAW 18,-18 

9403 PLOT 148,130: DRAW -16,0: P 
LOT 168,130: DRAW -16,0,PI/1.5 
DRAW -2,6: 
DRAW' -4,2 

DRAW 20,0,PI/ 


2.03 
7 
9406 PLOT 204,150: 
LOT 204,150: 
16: DRAW 0,8: 
4: DRAW 16,0: 
-4: DRAW -2,-4 
9407 DRAW 0,-42: 
9408 DRAW 0,-12: 
—E,=2 
RAW 4,6 
9409 DRAW 0,30 
9411 PLOT 126,132: 
RAW 8,4: DRAW -2,5 
9419 PLOT 195,120: 
OT 193,134: DRAW -6,-6,P1: PLOT 
193,134: DRAW 8,-8: PLOT 195,120 
: DRAW 6,6,PI 


PLOT 204,145: DRAW -20,0,PI 
DRAW 0,-16: P 
DRAW 4,0: DRAW 16,- 
DRAW -4,4: DRAW O, 
DRAW 2,-4: DRAW 2, 


DRAW -20,20 
DRAW 4,-6: 
DRAW -12,0: 


DRAW 
DRAW -4,2: D 


DRAW -6,-9: D 


DRAW -8,8: PL 


9430 PRINT AT 19,33 INK 5; "PULSA 
UNA TECLA PARA JUGAR" 
9440 IF INKEY$="" THEN GO TO 94 
40 
9450 RETURN 
9300 GO TO 9900 
9799 STOP 
9800 FOR I=i TO 100: NEXT 1 
9810 PRINT AT 15,23” 
9820 FOR I=16 TO 21:23 PRINT AT 1, 
O; '" 
"g NEXT 1 


9830 RETURN 

9900 FOR I=1 TO 12: PRINT AT 1,1 
gr ": NEXT 1 
9905 INK 6: BRIGHT O: PLOT 76,16 
3: DRAW 16,0: DRAW 0,-24: DRAW 3 
6,0: DRAW 0,—-16: DRAW -36,0 


9910 DRAW 0,-36: DRAW -16,0: DRA 


W 0,36: DRAW -36,0: DRAW 0,16: D 

RAW 36,0: DRAW 0,24 

9915 PRINT AT 5,8; INK 73 BRIGHT 
15"R 1 P” 


9920 PLOT 76,87: DRAW -40,-24: P 

LOT 92,87: DRAW 40,-24 

9925 GO SUB 9800: PRINT AT 16,1; 
"MALA SUERTE !"3AT 17,13 "PUNTUAC 
ION "3ST+DEX+SKI+EXP 

9930 PRINT AT 18,3; "OTRA PARTIDA 
2 (S/N) " 

9935 IF INKEY$="N" 

9940 IF INKEY$="S" 

9950 GO TO 9935 


THEN STOP 
THEN RUN 


O OO O 
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se 
qe : 


A 
EA 
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Laberinto 3-D 


Escenario 


Tras haber intentado asesinar a Lord Dark, has sido sentenciado a una Suerte peor que la muer- 
22 Te conducen por los profundos recovecos de su montaña y te encierran en un antiguo calabozo, 
serca de donde habitan los Espectros del Lord Dark. 

Tal como dice una inscripción en la pared de roca, sólo existe una salida; debes encontrar esta 
“misteriosa salida y aventurarte a través de ella para descubrir qué hay después. 
Los misteriosos corredores parecen continuar infinitamente. 
¿Escaparás algún día? 


indicaciones de carga 


No hay gráficos definidos por el usuario en este programa, y han sido usados los comandos 
dde alta resolución FLOT y DRAW. 

La principal sección del juego está escrita totalmente en código máquina, que es mucho más 
pido. El código máquina consiste en una serie de números, que deben ser introducidos en posicio- 
mes altas de memoria usando el programa cargador. 
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A 


| e dy Sd 
16 o nas sc PP mem rs sois se PR rs ma jano ph mer 0ar ms e 0 en 


En primer lugar debes asegurarte de que está activado el CAPS LOCK y entonces teclear el p 
grama en BASIC LABE 3-D. Especial cuidado debe tenerse al introducir el número del USR, 5 
que un número erróneo producirá un bloqueo del ordenador. Una vez copiado debe ser salv 
en cinta usando el comando. 


SAVE “LABE-3-D” LINE 10 


Verifica el programa mediante VERIFY “ ”, En este punto asegúrate de que la cinta va a cont ; 
nuar en esa posición, o anota el valor del contador de vueltas, con objeto de que la siguiente secció 
de datos pueda ser grabada directamente tras éste. 

Ahora teclea el CARGADOR comprobando de nuevo que el CAPSLOCK está puesto. Una + 
terminado, ejecútalo. Una dirección aparecerá en la pantalla y se te pedirá que inroduzcas un byi2 
que será uno de los números de los VALORES DECIMALES. Debes introducir los números u 
a uno; una nueva dirección aparecerá en la pantalla al final de cada línea, igual que en el listada: 
Al final de cada sección, el ordenador lleva a cabo una rutina de detección de errores. Si algún er 
es descubierto, se te permitirá comparar los números introducidos con los de los VALORES DECE 
MALES. La sección es listada línea a línea; ENTER cambia de línea y C te permitirá corregir 
línea elegida. Debes tener cuidado al introducir los números, pues el ordenador no detecta todos 
los errores, y un número equivocado puede causar el bloqueo del ordenador cuando sea ejecutada 
el juego. 

Ahora tienes que salvar los datos en cuatro secciones, justo después del anterior programa (LA- 
BE 3-D). Cuando la cinta esté lista, pulsa ENTER para salvar el primer bloque de datos. Esto debe 
ser repetido tres veces más, después de las cuales las cuatro secciones serán verificadas. 

El juego está completo. Teclea 


LOAD “LABE 3-D” 


y todo se cargará automáticamente. 


Técnicas 


En un ordenador la memoria puede ser imaginada como una gran fila de cajas, cada una con 
su propia dirección y capaz de contener un número entre O y 255, ambos inclusive. 
Uno puede cambiar el contenido de estas cajas sólo si están en memoria de lectura-escriturs 
(RAM). Esto se realiza usando el comando POKE. Por ejemplo, 


POKE 60000,100 


introducirá el número 100 en la caja cuya dirección es 60000. 
En el Spectrum, la primera dirección de RAM es la 16384, pues los 16K de memoria de sóla 
lectura (ROM) ocupan desde la O hasta la 16383. 
Para saber qué es lo que hay en alguna de estas cajas, incluyendo las de ROM, se usa el comar- 
do PEEK. PEEK seguido de un número devuelve el contenido de la caja requerida, y este valor 
puede ser utilizado de cualquier forma que nos interese. Por ejemplo, 


PRINT PEEK 60000 
imprimirá en la pantalla el número contenido en la caja 60000. 
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La ROM es el programa en código máquina que el ordenador usa constantemente, a no ser que 
haya sido dirigido a una rutina en código máquina escrita por el usuario en RAM. 

Sin entrar profundamente en la definición de código máquina, este misterioso lenguaje consiste 
-¿n una serie de instrucciones simples que pueden ser ejecutadas directamente por el procesador. Al 
ser cada instrucción tan simple, puede ser muy difícil llevar a cabo una tarea que parecería muy 
sencilla en BASIC. 

La función USR se usa para ejecutar rutinas en código máquina. A continuación se indica lo 
gue ocurre cuando se usa este comando: 


1) El número que acompaña a USR es copiado en el registro bc (un tipo de variable de código 
máquina). 


2) El control es transferido a la dirección especificada por ese número. 


3) Cuando se encuentre una instrucción RETURN al final de una rutina, el valor del registro 
bc en ese momento es asignado a la función USR y se retornará al BASIC. Por ejemplo: 


PRINT USR 60000 


Cuando retorne de la rutina en código máquina que empieza en la dirección 60000, el 
contenido del registro bc aparecerá en la pantalla. 


Instrucciones de juego 


Al empezar el juego verás una representación tridimensional de lo que tienes delante. Puedes 
alcanzar a ver nueve pasos por delante, a no ser que haya una pared en medio. 

El movimiento a través del laberinto se realiza usando el joystick derecho con interface 2 ó con 
Las teclas indicadas en la tabla 4. 


TABLA 4 
Comando Dirección 
8 Adelante 
6 90% a la derecha 
Y 90% a la izquierda 


NOTA: Para parar el juego pulsa CAPS SHIFT 8 y SPACE al mismo tiempo. 


Adaptación 


El juego está diseñado de forma que el laberinto pueda ser cambiado por el usuario. Sin embar- 
zo, se debe tener cuidado para asegurarse de que las rutinas de código máquina operan correcta- 
nte. 


Ln ez 


40001 — salida = 40012 


entrada = 40049 


FIG. 3 


Primero, diseñar un laberinto similar al de la figura 3, asegurándose de cumplir las siguientes 
reglas: 


1) El laberinto debe ser cuadrado. 

2) Debe estar rodeado por paredes. 
3) Los pasillos deben tener una anchura de una unidad. 
4) Se debe incluir la posición de entrada (BE). 
5) Se debe incluir la salida (S). 


1) 


JO 
L LJ) 


L) 


Cuando el laberinto esté diseñado hay que cargar las variables del código máquina como sigue: 


POKE 60141, Xx + 2 
POKE 60165, x + 2 
POKE 60175, x 

POKE 60189, x 

POKE 60202, (* x) — 1 
POKE 60212, x donde x = tamaño del cuadrado 
POKE 60226, X 
POKE 60239, (Q 
POKE 60525, x 
POKE 60260, x 


* x)—1 


Ahora se puede introducir el laberinto en memoria a partir de la posición 41000, usando los 
códigos de la tabla 5. 


TABLA 5 
Código Significado 
0 Un espacio 
] Una pared 
2 Salida 


Cuando esté terminado, las líneas del programa relativas a la dirección de comienzo deben ser 
cambiadas como sigue: 


50 POKE 40006, ENTRADA — 256 INT (ENTRADA/236) 
60 POKE 40007, INT (ENTRADA/256) 


y las de la salida: 


POKE 60286, INT (SALIDA /256) 
POKE 60292, EXIT — 256 INT (SALIDA/256) 


Cuando todo esto esté terminado, el programa estará listo y podrá salvarse, si se desea, usando 
los comandos 


SAVE “CODE!” CODE 40500,19 

SAVE “CODE2” CODE 41000,900 
SAVE “CODE3” CODE 51000,5162 
SAVE “CODE3” CODE 60000,532 


Listado 


IMPORTANTE 


Toda la información debe ser introducida con CAPS LOCK. 


CARGADOR DECIMAL 


| ! 
2 10 REM 4362436 d ICI IRTE A 3090 (CLS O 
| 20 REM *CARGADOR DECIMAL+* 400 PRINT "CORRECTO." 
O. 30 REM e A 410 PRINT "REBOBINA LA CINTA." ¡ O 
| 40 DATA 40500, 40518, 479 420 PRINT "PULSA ENTER PARA VER ' 
O |: 50 DATA 41000,41899,445 IFICAR."- O 
¡60 DATA 51000,51161,4324 430 PAUSE O | | 
¡70 DATA 52000,52161,4249 440 FOR N=1 TO 4: VERIFY ""CODE : | 
O | 80 DATA 53000,53161,5411 : NEXT ON : O] 
¡90 DATA 54000,54161,5336 450 CLS 
O ' 100 DATA 55000,55161,8763 460 PRINT "TODO EL CODIGO HA SI; y 
' 110 DATA 60000,60531,66148 DO SALVADO CORRECTAMENTE. " | 
O | 120 RESTORE 40 470 STOP d 
¡| 130 READ A,B,C 1000 CLS : 
¡; 140 LET D=0 1010 PRINT "COMPRUEBA EL CODIGO. : 
Oi 145 CLS PULSA ENTERPARA VER LA SIGUIENT |: O 
| 150 PRINT "INICIO: "3A E LINEA. PULSA C PARA CORREGI 
O ¡ 160 PRINT R LA LINEA." 0 
| 170 FOR N=A TO B STEP 6 1020 PRINT 
O | 180 PRINT N5"s "3 1030 PRINT 
¡190 FOR M=0 TO 5 1040 PRINT ¡O 
¡; 200 PRINT TAB Mx4+7; 1045 LET D=0 | 
O ¡ 210 INPUT "BYTE= "5Z 1050 FOR N=A TQ B STEP 6 07 
| 212 LET D=D+Z 1060 PRINT N3":z "5 
o 1 215 POKE N+M, Z 1070 FOR M=0 TO 5 O 
| 220 PRINT 2; 1080 PRINT TAB Mx*4+75PEEK (N+M)3 | 
230 NEXT M 1085 LET D=D+PEEK (N+M) 
O | 240 PRINT 1090 NEXT M O 
| 250 NEXT N 1100 PAUSE O 
O | 260 PRINT 1110 IF INKEY$="C" THEN 60 TO02 ¡9 
¡270 PRINT 000 y 
280 1F C<>D THEN PRINT FLASH 1115 PRINT | | 
O "13"ERROR EN LA SECCION ANTERIOR" 1120 NEXT N ¡ 08 
: ¡: PAUSE 200: GO TO 1000 1130 IF C<>D THEN GO TO 1000 
Ed] O | 290 PRINT 1140 IF A<60000 THEN GO TO 130 ¡OQ 
31 | 300 PRINT 2000 CLS : 
NE O | 310 IF A<60000 THEN GO TO 130 2010 PRINT "REESCRIBE LA LINEA 1; y 
Ena | 320 CLS NCORRECTA. " 
AE | 330 PRINT "COLOCA LA CINTA." 2020 PRINT AT 10,0; 
ál O | 340 PRINT "EL CODIGO SE SALVA E | 2030 PRINT N3"z "3 Mo: 
el ¡N 4 PARTES POR TANTO PULSA ENTE | 2040 FOR M=0 TO 5 
di O 'R ANTES DE CADA UNA." 2050 INPUT "BYTE= "5Z 0 
E | 350 SAVE "CODE1"CODE 40500, 19 2060 POKE N+M, Z 
q O | 360 SAVE "CODE2"CODE 41000,700 2070 PRINT TAB Mx*4+73PEEK (N+M)3 ! 
E | 370 SAVE "CODE3"CODE 51000,5162 | 2080 NEXT M mo) 
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Quadrilandia 


Escenario 


Como el último de los caballeros de Quadrillion, es tu deber librar a Quadrilandia del dominio 
de Dark Warlock, que ha traído cientos de años de muerte, hambre y miseria a este planeta, en 
ptro tiempo hermoso y próspero. 

Tras acaparar poder durante cinco siglos, el todopoderoso y temible Warlock se dividió a sí mis- 
mo en tres partes de diferente poder y cada una escondida en una peligrosa fortaleza. 

Tu misión es explorar el mundo de Quadrilandia, visitando continentes, islas, ciudades y casti- 
llos, derrotando bestias y monstruos en busca de artefactos, armas y hechizos sin los cuales nunca 
podrás destruir a Warlock. 


Indicaciones de carga 


El juego completo está escrito sobre unos 75K de programa, y usa tanto BASIC como rutinas 
en código máquina para acelerar los gráficos. 

Para introducir toda esta información en los 48K del ordenador (el problema de meter una pinta 
de vino en una bota de media pinta), el juego ha sido dividido en tres secciones distintas que deben 
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ser tecleadas y salvadas en cinta de acuerdo con las instrucciones indicadas a continuación. Para 
hacer esto correctamente necesitarás una cinta virgen libre por ambas caras. 


Instrucciones 


PASO 1 Teclea el programa QUAD.1, teniendo gran cuidado con todas las líneas DATA. Un 
valor incorrecto u olvidado en este punto causará problemas más tarde. 
PASO 2 Salva el programa en la cara B de la cinta, usando el comando 


SAVE “QUAD!” 


PASO 3 Teclea el programa QUAD.2, teniendo de nuevo cuidado con las numerosas líneas DATA. 
PASO 4 Salva el programa en la cara B de la cinta, directamente detrás de QUAD.1, usando 


SAVE “QUAD.2” 


PASO 5 Teclea el programa QUAD.3, teniendo como siempre cuidado con los gráficos defini- 
dos y con los espacios. 
No ejecutes el programa en este punto. 

PASO 6 Salva el tercer y último programa en la cara A de la cinta, usando el comando 


SAVE “QUAD.3” LINE 1 


PASO 7 Carga el programa QUAD.] y teclea RUN. Después de unos minutos, aparecerá el 
mensaje O.K. en la pantalla. Ahora carga QUAD.2 y teclea RUN. Después de un pe- 
ríodo similar aparecerá de nuevo O.K. en la pantalla. 

PASO 8 Las rutinas en código máquina, el mapa y los planos de las ciudades ya están coloca- 
dos en la parte alta de la memoria y pueden salvarse en la cara A de la cinta para 
uso futuro del programa principal. Sálvalos directamente detrás de QUAD.3, utilizan- 
do los comandos 


SAVE “CODE” CODE 50000,15536 
SAVE “CHAR” CODE USR “A”72 


Ahora estás preparado para jugar al QUADRILANDIA. 


Técnicas 


La complejidad de un juego de aventuras depende en gran parte del mapa o plano utilizado. 
En general, cuanto más extenso sea el plano, más complejo y fascinante será el juego. La utilización 
de un gran mapa puede a menudo acarrear problemas para el programador, pues el método más 
común de representación —una matriz multidimensional (p. ej. A(xy))— utiliza mucha RAM, de- 
jando muy poco espacio al programa, instrucciones y gráficos. 

Un método alternativo es usar una seudomatriz almacenada en alta memoria. Los valores se 
pueden situar consecutivamente por encima de la RAMTOP, usando un programa de inicialización, 
y entonces salvarse en cinta usando SAVE”“CODE, o pasados al programa principal. 

El único inconveniente de una seudomatriz es su forma de direccionamiento. Al revés de una 
matriz ordinaria, a la que se accede fácilmente (p. ej. A(xy)), una seudomatriz requiere una fórmula 
matemática para ser aplicada a los parámetros antes de obtener la dirección apropiada. 
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Ejemplo 


Consideremos una seudomatriz (100 x 100) almacenada secuencialmente en memoria alta, en- 
tre las direcciones 40000 y 49999 ambas inclusive. Para acceder a una dirección dada por los pará- 
metros Xy necesitamos el comando 


PEEK (((100*xx) + y) + 40000) 


En general, la cantidad de memoria que puede ser economizada usando esta técnica es enorme. 
En nuestro ejemplo representa un ahorro de más de 20K. 


Instrucciones de juego 


Quadrilandia es un juego gráfico de aventuras en tiempo real, significando que el juego conti- 
núa incluso cuando los comandos no son introducidos; por tanto, unos rápidos reflejos son tan 
importantes como un pensamiento lógico y la experiencia en el arte de la aventura. 
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Cuando el juego sea cargado, aparecerás en algún lugar en el centro de Quadrilandia, a partir 
de donde debes explorar el mundo, mediante los controles de movimiento indicados en la tabla 6. 


TABLA 6 
Tecla Dirección 
6 Oeste 
7 Este 
8 Sur 
9 Norte 
7819 Noroeste 
7828 Sureste 
6828 Suroeste 
6619 Noroeste 
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A lo largo del juego, varios bloques de información aparecerán en la pantalla. Esto incluye una 
clave con los tipos de terreno, situaciones de combate y los atributos del jugador. Estos atributos 
deben ser vigilados atentamente, pues controlan el desarrollo del juego. Si cualquiera de ellos se 
reduce a cero, todo está perdido y el juego se acaba. 
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Terrenos 


Como se puede ver en la pantalla, hay muchos tipos diferentes de terreno, que tienen diferentes 
efectos sobre los atributos del jugador. Puede ser útil recordar las siguientes normas: 


1) No puedes andar por encima del agua. 
2) Las montañas son inaccesibles a pie. 
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3) En el desierto se necesita gran cantidad de comida. 
4) El andar por los campos de Quadrillion puede dañar tu salud, pero puede conducir a expe- 
riencias maravillosas. 


Monstruos 
Durante tus viajes a lo largo y ancho de Quadrilandia, encontrarás sin duda numerosos mons- 
truos, contra los que puedes luchar pulsando simultáneamente una tecla de movimiento y el cero. 
Por ejemplo, 
6,8,0 simultáneamente - - - ataque al suroeste 
9,0 simultáneamente - - - ataque al norte 


Ciudades 
Como todos los mundos, Quadrilandia tiene zonas muy pobladas, representadas en el mapa en 
negro, y se pueden explorar situándose en el cuadrado apropiado y usando el comando E. 


Comandos 


Para hacer el juego lo más rápido posible, todos los comandos están disponibles con la sola 
presión de una tecla. Están listados en la tabla 7; cómo funcionan y dónde pueden ser usados lo 
tienes que descubrir tú. 


TABLA 7 


Tecla Comando 


E cava 

g salva el juego 

l carga el juego 

a abre 

S salta 

e entra en una ciudad 
o castillo 

entra o sale del bote - 
transacción 
conversa 

pausa 

inventario 


="3) O = 


Buena suerte, y recuerda que Quadrilandia es un mundo muy grande. 


Notas gráficas 


GRAFICO F 
GRAFICO G 
GRAFICO H 
GRAFICO 1 


GRAFICO A 
GRAFICO B 
GRAFICO C 
GRAFICO D 
GRAFICO E 
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Listado 
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1) El programa debe ser tecleado usando CAPS LOCK. 


2) Los espacios deben ser copiados textualmente. 


3) Notas gráficas. 
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1050 DATA 60,60,24,255,153,60,36 
,36,16,56,124,126,16,255,126,60, 
192,192,92,85,85,85,119,0,14,15, 
126,90,90,36,56,124,84,124,124,2 
34,181,171,26,26,254,18,58,42,42 
, 42 

1040 DATA 231,60,126,255, 153,255 
,195,126,0,60,126,255, 129,153,12 
,194,174,226,62,13,215,42,139,22 
6,17,85,0,25,34,139,226,0,5,194, 

=1 TO 102 


172,226,201 


12,62,255,255,36,54,60,36,60,24, 
1035 IF A=201 THEN RETURN 

1060 DATA 42,143,226,22,101,43,2 
29,193,9,21,194,153,226 

1070 DATA 237,75,141,226,9,17,74 
,193,25,34,139,226,6,11,14,17,19 
7, $2, 139, 226 

1080 DATA 126,6,7,79,129,5,194,1 
82,226,79,33,143,92,113,62,32,21 
5,42,139,226 

1090 DATA 35,34,139,226,193,0,13 
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1000 REM +* GRAFICOS + 
1040 LET I=1+1 


1010 FOR N=0 TO 71 
1020 READ A 

1030 POKE USR ".y."+N,A 
1040 NEXT N 

1020 READ A 

1030 POKE 1,A 

1050 GO TO 1020 

9000 FOR J=1 TO 5 
9010 FOR I 

9020 POKE AAM,5 
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9460 DATA 8,5,4,1,14,6,2,4,16,1, 


9520 DATA 8,5,2,1,20,4,9,1,5,4,6 
¿7 1 AZ is 
5,1,8,5 

9530 DATA 8 


O 14,8,6,6,22,1,19,4,2,1,8,5 
¿9470 DATA 8,5,4,1,14,6,3,4,15, 1» 
O :7,76,20,1,21,4,2,1,8,5 
' 9480 DATA 8,5,3,1,9,4,6,6,4,4,11 
o | »1,14,4,7,1,3,4,6,1,10,4,7,3,4,4 
2 iS 
: 9490 DATA 8,5,3,1,9,4,6,6,6,4,79» 
0 11,148,827. L,1,d100 5, 12 12484:7,3, 
sr 
O : 9500 DATÁ 8,5,3,1,21,.4,7+1116,4s 
y 14,1,4,4,1,0,7 4,713,114, 53,1185 
O ' 9510 DATA 8,5,3,1,6,4,1,0,12,4,7 
¡3 8 9 3974 41 12,1,.12,4,7,3, 1,8 
Pa E 


QUAD.3 


1 LET GO=0: 


LET CJ=NOT PI: LE 
LET OPEN=NOT Pl: LE 


LET Wi=1: LET W2=1: 


T CI=NOT PI: 
T WD=NOT PI: 
LET W3=1 


! 
| 
| 
Ú 
| 
| 
| 
2 DIM R$(10,32): DIM 1(30): D 
| 

! 

| 

1 

l 

' 


IM V(24): DIM X(24): DIM Y(24): 
DIM J(30): DIM M(30): DIM S(30):2 
DIM H(30) 


3 LOAD ""CODE : LOAD ""CODE 


4 PAPER 7: LET NO=NOT Pl: LET 


8,1,2,4,10,1,3,4,217,/8,4,6,1,8,5 
9600 DATA 8,5,7,1,12,4,1,7,11,1, 
13,4,11,1.4,4,0,1,3,8,2,7.0,45b5 
1,8,5 


9610 DATA 8,5,5,1,.12,4,3,7,11,1, 
15,7. 1 E A a id ds 7 
,8,4,6,1,8,5 

79620 DATA 8,5,5,1,12,4,1,7,16,1, 
10,4,10,1,3,412.1.2. 8.117 6588 
.1,8,5 

9630 DATA 8,5,5,1,7,4,112,2¿4,3, 
7,16,1,4,2,1,0,5,4,25,1,9,4,85 1, 
8,5 

9640 DATA 8,5,5,1,1,4,4,3,5,4,2, 
7,17,1,10,4,2%,101,7,10,8,8, 1.8, 
5 

9650 DATA 8,5,5,1,1,4,4,3,5,4,10 
-72,11,1,24,,7,5,118.7 15.1% 7 
,6,4,12,1,8,5 

9660 DATA 8,5,5,1,1,4,6,3,7,4,4, 
7.14, 1.1813, 5, E.1,7,1.4,4. 7,5 
E 7 0 AE, E 
8.5 

$570 DATA 8.5.8, 1,1 .2.3,.3. 61,8% 1, 
0,2,7,8,1,2,4,6, 1,3,4,7,7,4,4,395 
7,16,4,8,1,2,4,4,1,9,5 

9680 DATA 8,5,8,1,11,4,2,7,7,1,1 
.411,0,11.4,2,17,1511,9,4,1,0, 12,4, 
3,1,6,4,9,1,4,4,4,1,8,5 

96590 DATA 8,5,11,1,7,4,10,1,3,4, 
2,1,10,8,5,1,5,8,3,1,4,4,10,1,2, 
2,1,0,1.4.5., 1.8.5 

9700 DATA 8,5,40,1,10,4,27,1,1,4 


,8,1,8,5 
9710 DATA 8,5,86,1,8,5 


SD=NOT PI: LET I$="UNA ESPADA C 
ORTA/UNA ARMADURA DE CUERO" 

S CELS: POKE 23658,8 
READ I(K),J 


6 FOR K=21 TO 30: 

(K),M(K) 

. 7 DATA 59,22,5,45,58,2,61,60, 
3,70,59,4,75,42,3,60,21,1,60,20, 
1,83,10,5,84,10,5,82,10,5 

8 LET S(kK)=((J(K)-1)*102)+1 (K 
LET H(K)=M(K)x*10 


)+50000: 


A A o O E A A E 


O 


O 


O 


¿EQ e 


O .1Ó 


SS q “Y 


OT PI: 


9 NEXT K 

11 FOR K=1 TO 20 

12 LET J(K)=INT (RND*68) : 
1(K)=INT (RND*102) 

13 LET S=((J (K)-1)*102)+1 (K)+5 


LETr 


0000 
14 1F PEEK S=1 THEN LET M(K)= 
60 TO 17 
15 IF PEEK S=5 THEN 60 TO 12 
16 LET M(K)=INT (RND*5)+1 
17 LET S(K)=S: LET Y$="" 
18 LET H(K)=M(K)x6 
20 NEXT K 
21 LET G=150: LET E=NOT PI: 
7 ST=50: LET F=75: LET BX=59: 
T BY=21 

22 LET Ps="-5" 

23 FOR K=1 TO 24 

24 READ X,Y,Z 

25 LET X(K)=X: 
Y (K)=Z 

26 NEXT K 

27 DATA 11,13,1,17,43,2,22,14, 
3,26,59,4,37,20,5,37,47,6,37,60, 
7,146,254 1.164 35,2, 53,15, 34 534955 
4,55,60,5,63,41,6,64,53,7 

28 DATA 66,30,1,69,12,2,73,42, 
3,75,58,4,79,10,5,82,13,6,85,17, 
7,84,35,1,85,50,2,87,61,3 

Z6 LET I=50: LET J=34 

40 POKE 57997,1: POKE 57998,NO 
POKE 57999,J: POKE 58000,N 


1: 


LE 
LE 


LET Y(K)=Y2 LET 


OT PL 
60 CLS : 
23689,24: 


PAPER 7: PRINT : POKE 
LET X=USR 58001 
70 PAPER ATTR (5,8)/8 
PRINT AT 5,83"*” 
PAPER 7 
PRINT AT 1,23;3"CLAVE" 
95 PRINT AT 2,18; PAPER 
PAPER 73"..DESIERTO” 
100 PRINT AT 3,183 PAPER 
PAPER 73"..MAR" 
110 PRINT AT 4,185 PAPER 
PAPER 73"..CASTILLO"” 
120 PRINT AT 5,183 PAPER 
PAPER 73". .BOSQUE"” 
130 PRINT AT 6,18; 
PAPER 73"..LLANO" 
140 PRINT AT 7,18; 
PAPER 73"..LIMITES" 
150 PRINT AT 8,1853 PAPER 73" "s 
PAPER 753 BRIGHT 05". .MONTANA" 
160 PRINT AT 9,183 PAPER 03” 
PAPER 73"..CIUDAD"” 


63" 
199 
2 
si" "s 
PAPER 


45 ” a 


PAPER 


5; mM ”; 


170 PLOT 140,170: 
RAW 0,-80: DRAW -110,0: 
O 

220 PRINT AT 12,5; "ESTADO"3AT 1 
4,13"O0RO"5AT 16,13 "EXPERIENC."5A 
T 18,1;"FUERZA"sAT 20,13 "COMIDA" 

270 PLOT 2,83: DRAW 130,0: DRAW 

0,-80: DRAW -130,0: DRAW 0,80: 
PLOT 2,67: DRAW 130,0: PLOT 92,6 
7: DRAW 0,-64 

360 PRINT AT 14,1236G5AT 16,12;E 
5AT 18,1253ST3AT 20,12;F 

370 PLOT 140,83: DRAW 110,0: DR 
AW 0,-28: DRAW —-110,0: DRAW 0,28 
: PLOT 140,67: DRAW 110,0: PRINT 

AT 12,203" INFORMES": PLOT 140,5 
O: DRAW 110,0: DRAW 0,-48: DRAW 
—110,0: DRAW 0,48: PRINT AT 16,2 
03" COMBATE ": PLOT 140,36: DRAW 

110,0 

£00 LET R$(1)="NO QUIERO HABLAR 

CONTIGO" 

610 LET R$(2)="TODAS LAS GEMAS 
SON IMPORTANTES" 

520 LET R$(3)="DESEANDO ALGO SE 

CONSIGUE" 

630 LET R$(4)="EN LA CIMA DE LA 

MONTANA" 

440 LET R$(5)="UNA ESTRELLA TE 
GUIARA LEJOS" 

450 LET R$(6)="SOLO LOS TONTOS 
DICEN MENTIRAS" 

660 LET R$(7)="EL MUNDO ESTA LL 
ENO DE TONTOS” 

665 LET R$(8)="LA PRINCESA ESTA 

ENFERMA" 

675 LET R$(9)="MUCHOS LO HAN IN 
TENTADO" 

690 LET R$(10)="EL. DESIERTO ES 
MUY MISTERIOSO" 


DRAW 110,0: D 
DRAW 0,8 


700 IF GO=0 THEN (60 SUB 9500 
710 LET GO=1 

1000 GO SUB 7000 

1010 GO SUB 8000 

1020 LET Zt=INKEYS$ 

1021 IF Z$="1" THEN (GO SUB 8500 
1022 IF Z$="B" THEN (GO SUB 2000 
1023 IF Z$="E" THEN GO TO 3000 
1024 IF Z$="C" THEN GO SUB 2200 
1025 IF Z$="G" THEN GO SUB 9900 
1026 IF Z$="P" THEN LET H$=1%$: 
LET I$="JUEGO INTERRUMPIDO. PULS 
A ENTER PARA CONTINUAR": GO SUB 


8500: PAUSE O: LET I$="EL JUEGO 


O 0 


dd O O O 6 6 9 O 6 O q 


O 


O 


O 


Pi e e < 


O 


O 


O "4 0 5 04 6 QQ O 8 


Oo 0 


GS O 2 O SS 6 0 


O O O 


CONTINUA...”: GO SUB 8500: LET I 
$=H$ 
1027 IF Z$="L” 
1040 60 TO 1000 
2010 I1F I<>BX OR J<>BY THEN BEE 
P .1,50: RETURN 
2011 LET T*$="UN SEXTANTE": GO SU 
B 2100: IF TK=0 THEN LET Q$=1$: 
LET I$="NO TIENES EL SEXTANTE": 
GO SUB 8500: LET I$=0$: RETURN 
2012 LET T$="UN COMPAS”: GO SUB 
2100: IF TK=0 THEN LET Q$=1I$: L 
ET I$="NO TIENES EL COMPAS": GO 
SUB 8500: LET I$=0$: RETURN 
2013 IF Ex200 THEN LET O$=1I$: L 
ET I$="NO TIENES EXPERIENCIA SUF 
ICIENTE PARA MANEJAR UN BOTE": G 
O SUB 8500: LET I$=0$: RETURN 
2014 LET T$="UNOS MAPAS": GO SUB 
2100: IF TK=0 THEN LET QO$=1$: 
LET I$="NO TIENES LOS MAPAS NECE 
SARIOS PARA PILOTAR EL BOTE": GO 
SUB 8500: LET I$=0$: RETURN 
2020 LET H$=1$ 
2030 IF P$="%" THEN LET I$="AH 
ORA ESTAS DENTRO DEL BOTE” 
2035 IF P$=":3." THEN LET I$="AH 
ORA ESTAS FUERA DEL BOTE" 


THEN LOAD 


2040 GO SUB 8500 

2045 IF P$="43" THEN LET Ps$=" 0 
: GO TO 2050 

2046 LET Ps$=".1." 

2050 LET I$=H$ 

2060 RETURN 

2100 REM * TEST DE INVENTARIO «+ 
2110 FOR X=1 TO LEN (I$)-LEN (T$ 
+ 

2120 IF I$(X TO (X+LEN (T$)-1))= 


T$ THEN LET TK=1: RETURN 

2130 NEXT X 

2140 LET TK=0 

2150 RETURN 

2200 REM * RUTINA DE CAVAR +* 

2210 IF ATTR (5,8)=56 AND J=34 A 

ND I=50 AND RND>.3 THEN  LET I$= 
1$+"/UNOS MAPAS": LET O$=1I$: LET 
I$="HAS ENCONTRADO LOS MAPAS": 

GO SUB 8500: LET 1I$=0%$: RETURN 

2220 LET O$=1$: LET I$="NO ENCUE 

NTRAS NADA, PERO ESTAS HAMBRIENT 

O Y DEBES GASTAR S UNIDADES DE C 


OMIDA”: GO SUB 8500: LET F=F-5: 
LET 1$=0$ 
2230 PRINT AT 20,12;" ": PRINT 


AT 20,12;3F: RETURN 


3000 REM * RUTINA DE CIUDAD + 
3010 LET E=E+10 

3015 IF ATTR (5,8)=16 THEN GO T 
O 4000 

3020 IF ATTR (5,8)>7 THEN BEEP 
.3,30: GOD TO 1000 

3030 FOR K=i1 TO 24 

3040 IF Y(K)=J AND X(K)=1 THEN 


GO TO 3070 

3050 NEXT K 

3060 BEEP .5,50: GO TO 1000 
3070 LET VN=V (K) 

3080 LET START=60000+ (640% (VN-1) 
) 

3090 LET HB=INT (START/256) 

3091 LET LB=START-HBx*256 

3092 POKE 59005,LB 

3093 POKE 59006,HB 

3094 PAPER 7: INK O: CLS : PRINT 


: POKE 236589,24: LET X=USR 5900 
1 

3096 LET VI=13: LET VJ=19 

3098 PAPER 4: PRINT AT VJ,VI3"+.: 

3099 GO SUB 6000: 

OX*VN) 

3100 GO SUB 3900 

3105 LET Z$=INKEYS$ 

3106 IF Z$="" THEN GO TO 3198 

3110 IF Z$="T" AND ATTR (VJ,VI)= 
165 AND VJ>9 AND VI<6 THEN LET Q 
$="PUEDES COMPRAR 50 UNIDADES DE 
COMIDA POR 40 PIEZAS DE ORO": G 


GO TO (3000+10 


O SUB 3800: GO SUB 38640 
3111 IF Y$="S" AND G>=40 THEN L 
ET F=F+50: LET G=G-40: LET Y$="" 


:: GO TO 3100 

3112 IF Y$="S"” THEN LET CO=40: 

GO SUB 3995: GO TO 3100 

3113 IF Y$="N" THEN LET Y$="": 

GO TO 3100 

3115 IF Z$="T" AND ATTR (VJ,VI)= 
16 AND VJ>10 AND VI>26 THEN  LET 
Q$="PUEDES COMPRAR UNA ESPADA L 
ARGA POR 50 PIEZAS DE ORO": GO S 
UB 3800: GO SUB 3860 

3116 IF Y$="S"” AND G>=50 THEN L 
ET ST=ST+50: LET I$=1$+"/ESPADA 


LARGA": LET G=G-50: LET Y$="": G 
O TO 3100 

3117 IF Y$="S"” THEN LET CO=50: 
GO SUB 3993: GO TO 3100 


3120 IF Z$="C" AND ATTR (VJ,VI)= 
15 AND VJ<8 THEN LET (QU$=R$(INT 
LET H=1 


(RND*9)+1): GO SUB 3800: 
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NT (RND*10): LET G=G-H: LET Q$=" 
COMO PAGO POR SUS CONSEJOS TU CO 
MPANERO TE QUITA "+STR$ H+" PIEZ 
AS DE ORO": GO SYB 3800 

3198 IF VJ=20 THEN GO TO 60 


3199 GO TO 3100 

3200 GO SUB 3900 

3205 LET Z$=INKEYS 

3206 IF Z$="" THEN GO TO 3298 
3210 IF Z$="T" AND ATTR (VJ, VI)= 


165 AND VJ>10 AND VI<7 THEN LET 
O$="PUEDES COMPRAR 100 UNIDADES 
DE COMIDA POR 100 PIEZAS DE ORO” 
: GO SUB 3800: GO SUB 3860 

3211 IF Y$="S" AND G>=100 THEN 


LET F=F+100: LET G=G-100: LET Y$ 
="": GO TO 3200 

3212 IF Y$="S" THEN LET CO=100: 
GO TO 3200 

3213 IF Y$="N" THEN LET Y$="": 
GO TO 3200 


3220 IF Z$="T" AND ATTR (VJ,VI)= 
16 AND VJ<7 AND VI<7 THEN LET Q 
$="PUEDES COMPRAR UN HACHA POR 1 
50 PIEZAS DE ORO": GO SUB 3800: 
GO SUB 3860 
3221 IF Y$="S” 
LET ST=ST+753: 
$=1$+"/UN HACHA": 
TO 3200 
3222 IF Y$="S" 
GO SUB 3995: 
3223 IF Y$="N" 
GO TO 3200 
3225 IF Z$="T" AND ATTR (VJ,VI)= 
16 AND VI<23 AND VI>17 THEN LET 
Q$="TE VENDO UNA GEMA VERDE POR 
200 PIEZAS DE ORO": GO SUB 3800 
: GO SUB 3860 
3226 IF Y$="S" AND G>=200 THEN 
LET G=6G-200: LET I$=1$+"/UNA GEM 


AND G>=150 THEN 
LET G=6-150: LET I 
LET Y$="": GD 


THEN LET CO=150: 
GO TO 3200 
THEN LET Y$="": 


A VERDE": LET Y$="": GO TO 3200 
3227 1F Y$="S" THEN LET CO=200: 
GO SUB 3995: GO TO 3200 


3228 IF Y$="N" THEN LET Y$="": 
GO TO 3200 

3230 IF Z$="C" AND ATTR (VJ,VI)= 
146 AND VJ<4 AND ((VI>10 AND VIX1 
4) OR (VI>26 AND VI<30)) THEN L 
ET Q$=R$(INT (RND*9)+1): GO SUB 
3800: LET H=INT (RND*10): LET G= 
G-H: LET O$="COMO PAGO POR SUS C 
ONSEJOS TU COMPANERO TE QUITA "+ 
STR$ H+" PIEZAS DE ORO": GO SUB 


3800 


3298 IF VJ=20 THEN GO TO 60 


164 AND VI<ó6 THEN - LET O$="PUEDES 
COMPRAR 100 UNIDADES DE COMIDA 
POR 75 PIEZAS DE ORO": 

00: GO SUB 3860 

3311 IF Y$="S" AND G>=75 THEN L 
ET G=6-75: LET F=F+100: LET Y$=" 

GO TO 3300 

3313 IF Y$="S" THEN LET CO=75: 
GO SUB 3995: GO TO 3300 

3320 IF Z$="T" AND ATTR (VJ, VI)= 
16 AND VI>8 AND VI<146 THEN LET 
Q$="PUEDES COMPRAR UN COMPAS POR 
200 PIEZAS DE ORO": GO SUB 3800 
: GO SUB 3860 - 

3321 IF Y$="S" AND G>=200 THEN 
LET G=6G-200: LET I$=1$+"/UN COMP 
AS": LET Y$="":z GO TO 3300 

3322 IF Y$="S" THEN LET CO=200: 
GO SUB 3995: GO TO 3300 

3323 IF Y$="N" THEN LET Y$="": 

GO TO 3300 

3330 IF Z$="T" AND ATTR (VJ,VI)= 
16 AND VI>19 AND VI<27 AND VJ<5 
THEN LET 0$="PUEDES COMPRAR UNA 
GEMA ROJA POR 200 PIEZAS DE ORO 

GO SUB 3800: GO SUB 3860 
3331 IF Y$="S" AND G>=200 THEN  ; 

LET G=G-200: LET I$=1%+"/UNA GEM 


3299 GO TO 3200 
3300 GO SUB 3900 | 
3305 LET Z$=INKEYS 
3306 IF Z$="" THEN GO TO 3398 | 
3310 IF Z$="T" AND ATTR (VJ,VI)=| 


GO SUB 38 


A ROJA": LET Y$="": GO TO 3300 | 
3332 IF Y$="S" THEN LET CO=200:2 
GO SUB 3995: GO TO 3300 


3333 IF Y$="N" 
GO TO 3300 


THEN LET Y$="": 


3398 IF VJ=20 THEN GO TO 60 
3399 GO TO 3300 | 
3400 GC SUB 3900 
3498 IF VJ=20 THEN GO TO 640 
3499 GO TO 3400 | 
3500 GO SUB 3900 
3505 LET Z$=INKEYS 
3506 IF Z$="" THEN GO TO 3598  ¡ 
3510 IF Z$="T" AND ATTR (VJ,VI)=1¡ 


16 AND VI<7 THEN LET Q$="PUEDES 
COMPRAR 50 UNIDADES DE COMIDA P'| 
OR 40 PIEZAS DE ORO": GO SUB 380' 
O: GO SUB 3840  . 
3511 IF Y$="S" AND G>=40 THEN L! 
ET F=F+50: LET G=6G-40: LET Y$=""; 
: GO TO 3500 ! 


O 
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3512 IF Y$="S"” THEN LET CO=40: 
GO SUB 3995: GO TO 3500 

3513 IF Y$="N" THEN LET Y$="": 
GO TO 3500 

3520 IF Z$="T" AND ATTR (VJ, VI)>= 
16 AND VI<14 AND VI>10 THEN  LET 
Q6$="PUEDES COMPRAR UN HECHIZO P 

OR 200 PIEZAS DE ORO": GO SUB 38 

00: GO SUB 3860 

3521 IF Y$="S" AND G>=200 THEN 

LET Y$="":* LET G=6-200: LET 1$=1 

$+"/UN HECHIZO": GO TO 3500 

3522 IF Y$="S" THEN LET CO=200: 
GO SUB 3995: GO TO 3500 

3523 IF Y$="N" THEN LET Y$="": 

GO TO 3500 

3530 IF Z$="T" AND ATTR (VJ, VI)= 
16 AND VI>26 AND VJ>9 THEN LET 
O$="PUEDES COMPRAR UN ARCO POR 1 
50 PIEZAS DE ORO”: GO SUB 3800: 
GO SUB 3860 


3531 1F Y$="S" THEN LET Y$="": 


LET G=G-150: LET ST=ST+100: LET 
I$=1$+"/UN ARCO”: GO TO 3500 
3532 IF Y$="S" THEN LET CO=150: 


GO TO 3500 
THEN LET Y$="": 


GO SUB 3993: 
3533 IF Y$="N" 
GO TO 3500 
3540 IF Z$="C" AND ATTR (VJ,VI)= 
16 AND VJ<8 THEN LET Q$=R$(INT 
(RND*9)+1): GO SUB 3800: LET H=1 
NT (RND*10): LET G=G-H: LET Q$6=" 
COMO PAGO POR SUS CONSEJOS TU CO 
MPANERO TE QUITA "+STR$ H+" PIEZ 
AS DE ORO": GO SUB 3800 


3598 IF VJ=20 THEN GO TO 60 
3599 GO TO 3500 

3600 GO SUB 3900 

3605 LET Z$=INKEYS$ 

3606 IF Z$="" THEN GO TO 3698 
3610 1F Z$="T" AND ATTR (VJ,VI)= 


16 AND VI>146 AND VI<22 THEN LET 
Q0$="PUEDES COMPRAR UNA BALLESTA 
POR 400 PIEZAS DE ORO": GO SUB 
3800: GO SUB 3860 

3611 1F Y$="S" AND G>=400 THEN 

LET ST=ST+150: LET G=6-400: LET 

I$=1$+"/UNA BALLESTA": LET Y$="" 

: GO TO 3600 

3612 IF Y$="S" THEN LET CO=400: 
GO SUB 3995: GO TO 3600 

3613 IF Y$="N" THEN LET Y$="": 

GO TO 3600 

3620 IF Z$="T" AND ATTR (VJ, VI)= 


165 AND VI>24 AND VI<30 THEN  LET 
Q$="PUEDES COMPRAR UNA GEMA VER 

DE POR 300 PIEZAS DE ORO”: GO su 
B 3800: GO SUB 3860 

3621 IF Y$="S" AND G>=300 THEN 

LET G=G-300: LET I$=1$+"/GEMA VE 


RDE": LET Y$=""2z GO TO 3600 
3622 IF Y$="S" THEN LET CO=300: 
GO SUB 3995: GO TO 3600 


3623 IF Y$="N" THEN LET Y$="": 


GO TO 3600 

3698 IF VJ=20 THEN GO TO 60 
3699 GO TO 3600 

3700 GO SUB 3900 

3705 LET Z$=INKEYS$ 

3706 IF Z$="" THEN GO TO 3798 
3710 IF Z$="T" AND ATTR (VJ,VI)= 


15 AND VJ<7 AND VI<S THEN LET Q 

$="TE VENDO UNA GEMA AZUL POR 20 

O PIEZAS DE ORO": GO SUB 3800: G 

O SUB 3860 

3711 IF Y$="S" AND G>=200 THEN 

LET G=6G-200: LET I$=1$+"/GEMA AZ 

UL": LET Y$=""*: 6D TO 3700 

3712 IF Y$="S" THEN LET CO=200: 
GO SUB 3995: GO TO 3700 

3713 IF YK="N"” THEN LET Y4=""s 
GO TO 3700 

3720 IF Z$="T" AND ATTR (VJ, VI)= 
165 AND VJ<12 AND VJ>8 AND VI<7 T 
HEN  LET Qs$="TE VENDO UN SEXTANT 
E POR 500 PIEZAS DE ORO": GO SUB 
3800: GO SUB 3860 

3721 IF Y$="S"” AND G>=500 THEN 
LET G=G-500: LET I$=1$+"/UN SEXT 


ANTE": LET Y$="":z GO TO 3700 
3722 IF Y$="S" THEN. LET CO=500: 
GO SUB 3995: GD TO 3700 


3723 1F Yé="N" THEN LET YS=""> 

GO TO 3700 

3730 IF Z$="T" AND ATTR (VJ, VI)= 
16 AND VJ>14 AND VI<9 THEN LET 


Q$="TE VENDO UNA AGUJA POR 1 PIE 


ZA DE ORO": GO SUB 3800: GO SUB 
3860 

3731 IF Y$="S" AND G>=1 THEN LE 
T G=G-1: LET I$=1$+"/UNA AGUJA”: 
LET Y$="": GO TO 3700 

3732 IF Y$="S" THEN LET CO=1: G 
O SUB 3995: GO TO 3700 

3733 IF Y$="N" THEN LET Y$="": 
GO TO 3700 


3740 IF Z$="T" AND ATTR (VJ,VI)= 
16 AND VI>11 AND VI<19 THEN LET 
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Q$="PUEDES COMPRAR 100 UNIDADES 
DE COMIDA POR 40 PIEZAS DE ORO" 
: GO SUB 3800: GO SUB 3860 

3741 IF Y$="S" AND G>=40 THEN L 
ET G=6-40: LET F=F+100: LET Y$=" 

GO TO 3700 

3742 IF Y$="5" THEN LET CO=40: 

GO SUB 3995: GO TO 3700 

3743 IF Y$="N" THEN LET Y$="": 
GO TO 3700 

3750 IF Z$="T" AND ATTR (VJ,VI)= 
16 AND VJ>8 AND VI>24 THEN  LET 
O$="PUEDES COMPRAR UNA PISTOLA L 
ASER POR 2000 PIEZAS DE ORO": GO 
SUB 3800: GO SUB 3860 

3751 IF Y$="S"” AND G>=2000 THEN 
LET G=G-2000: LET I$=1$+"/UNA P 


ISTOLA LASER": LET ST=ST+599: LE 
T Y$="": 60 TO 3700 
3752 IF Y$="S" THEN LET CO=2000 


GO TO 3700 
THEN  LET Y$="": 


: GO SUB 39953: 
37953 IF YS$="N" 
GO TO 3700 
3760 IF Z$="C" AND ATTR (VJ,VI)= 
165 AND VJ<4 AND VI>26 THEN LET 
Q$=R$(INT (RND*9)+1): GO SUB 380 
Oz LET H=INT (RND*10):2 LET G=G-H 
: LET QO$="COMO PAGO POR SUS CONS 


EJOS TU COMPANERO TE QUITA "+STR 
$ H+" PIEZAS DE ORO": GO SUB 380 
0 


3798 IF VJ=20 THEN (GO TO 60 
3799 GO TO 3700 

3800 PAPER 7: FOR K=1 TO LEN 0$ 
3810 IF K>32 THEN PRINT AT 21,0 
5Q$(K-31 TO K): BEEP .01,4: 60 T 
O 3830 

3820 PRINT AT 21,32-Kj0$(1 TO Kk) 
: BEEP .01,4: PAUSE 1 


3830 NEXT K 
3840 FOR K=1 TO 100: NEXT K 
3850 PRINT AT 21,03” 
": RETURN 
3860 INPUT "S/N "3Y$ 
3870 RETURN 
3900 GO SUB 3000 
3951 IF CJ<>0 THEN PRINT AT CJ, 


CIS PAPER 23" pr” 

3955 LET A=0 

3960 IF ATTR (VJ+VM, VI+HM)=0 OR 
ATTR (VJ+VM, VI+HM)=8 THEN BEEP 
. 1,50: RETURN 

3965>IF VI+HM<O0R VI+HM>31 THEN B 
EEP .1,50: RETURN 


3970 IF VJ+VM<O OR VJ+VM>20 THEN 
RETURN 

3980 PAPER (ATTR (VJ,V1)/8): 
NT AT VI,VI3": " 

3982 LET VI=VJ+VM: LET VI=VI+HM 

3985 PAPER (ATTR (VJ,V1)/8): PRI 

NT AT VJ,VI5"4" 

3986 GO SUB 4100 

3990 RETURN 

3995 IF G<CO THEN LET Q0$="NO TE 
LO PUEDES PERMITIR": GO SUB 380 
O: LET Y$="": RETURN 

4000 REM * RUTINA DEL CASTILLO * 
4001 LET WkK=0: LET C$="": LET W= 

20: LET FF=5 

4010 LET DEF=NOT PIz INK O: 
59005,224: POKE 59006, 251 
4030 IF I=20 AND J=55 AND Wi<>0 
THEN LET C$="PRIMUS": LET W=100 
: LET FF=20 

4040 IF I=35 AND J=11 AND W2<>0 
THEN LET C$="SECUNDAS": LET W=2 
00: LET FF=50 

4050 IF 1=86 AND J=9 AND W3<>0 T 
HEN  LET C$="TRIACUS": LET W=300 
: LET FF=100 

4060 CLS : PRINT : POKE 23689,24 
: RANDOMIZE USR 59001 

4070 LET VN=8 
4071 LET VJ=18: 
4080 GO SUB 3900 
4090 1F VJ=19 AND WD=3 THEN GO 
TO 9300 

4094 PRINT AT 4,45 
WE "ia 


PRI 


POKE 


LET VI=13 


PAPER 23 INK 


4095 IF VJ=19 THEN PAPER 7: GO 
TO 60 . 

4100 IF ATTR (VJ,VI)=24 THEN LE 
T ST=ST-FF: LET O$="ESTAS EN UN 
CAMPO DE FUERZA Y PIERDES "+STR$ 
FF+" PUNTOS DE FUERZA": GO SUB 
3800 


4105 IF ST<O THEN GO TO 9200 
4110 IF ABS (VI-4)<=1 AND ABS (Y 
J-4)<=1 AND FIRE=1 THEN GO TO 4 
200 

4120 GO TO 4080 

4200 REM * LUCHA * 

4201 IF DEF=1 THEN GO TO 4080 


4204 LET HD=INT (RND*W): LET AD= 
INT (RIND*ST) 
4205 LET FIRE=NOT Pl: LET W=W-AD 


: LET ST=ST-HD 
4240 LET Q$="RESULTADO DEL COMBA 
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TE..."+STR$ AD+" A FAVOR / "+STR 
$ HD+" EN CONTRA": GO SUB 3800 
4250 IF ST<O THEN GO TO 9200 
4255 IF C$="" AND W<O THEN LET 
DEF=1: LET WK=2: LET Q$="HAS DES 
TRUIDO AL GUARDIAN": PAPER 2: PR 
INT AT 4,43" ": GO SUB 3800: GO 
TO 4080 

4260 IF W<0 THEN LET WD=WD+1: L 


ET DEF=1: LET Wk=2: LET Q6="HAS 

VENCIDO AL WARLOCK "+C$: PAPER 2 
: PRINT AT 4,43" ": GO SUB 3800: 
IF 1=83 THEN LET W3=0 

4261 IF 1=35 THEN LET W2=0 

4262 IF I=20 THEN LET Wi=0 

4270 IF WD=1 THEN LET Q$="TODAV 


IA DEBES MATAR 2 WARLOCKS MAS PA 
RA TERMINAR CON LA EPOCA DE OSCU 
RIDAD": GO SUB 3800 
4280 IF WD=2 THEN LET Q$="TODAV 
IA DEBES MATAR 1 WARLOCK MAS PAR 
A TERMINAR CON LA EPOCA DE OSCUR 
IDAD": GO SUB 3800 
4290 IF WD=3 THEN LET Q$="EL FI 
NAL DE LA EPOCA DE OSCURIDAD HA 
COMENZADO. SOLO 'TE QUEDA ESCAPAR 
PARA RECIBIR TU JUSTA RECOMPENS 


4": GO SUB 3800 

4300 GO TO 4080 

5000 LET A=255-IN 61438 

5002 LET FIRE=0: LET YT=0: LET Z 

A=1: LET HM=NOT Plz LET VM=NOT P 
I 

5003 LET Al=4M: IF A=0 THEN  RETU 

RN 

5060 IF A>127 THEN LET A=A-128 
5070 IF A>63 THEN LET A=A-64 
5080 IF A>31 THEN LET A=A-32 
5090 IF A>15 THEN LET A=A-16: L 
ET HM=-1 

5100 IF A>7 THEN LET A=A-8: LET 
HM=1 

5110 IF A>3 THEN LET A=A-4: LET 
VM=1 

5120 IF A>1 THEN LET A=A-2: LET 
VmM=-1 

3130 IF A=1 THEN LET FIRE=1 


5140 RETURN 

6000 IF VN<>2 THEN LET CJ=INT (€ 
RND*20): LET CI=INT (RND*20): IF 
ATTR (CJ,CI)=16 THEN PRINT AT 
CJ,CI5 PAPER 23": RETURN 

6010 IF VN<>2 THEN LET CJ=03 
T CI=0: RETURN 


LE 


6020 IF RND<.3 THEN  LET CJ= 14: 
LET CI=26: RETURN 

£6030 RETURN 

£6100 IF VN<>2 THEN IF VI=CI AND 
VJ=CJ THEN LET H=INT (RND*10): 


LET Q$="ENCUENTRAS "+STR$ H+" P 
IEZAS DE ORO": GO SUB 3800: LET 
=G+H: LET CJ=0 


6110 IF VN<>2 THEN RETURN 

6115 IF CJ=0 THEN RETURN 

6117 IF VJ<>CJ OR VI<>CI THEN R 
ETURN 

6120 LET O$="HAY UN BAUL DE ORO 
DELANTE DE TI": GO SUB 3800 

6130 LET Z$=INKEYS$ 

6140 IF Z$="" THEN GO TO 6130 
6150 IF Z$="A" THEN LET Q$="EL 
BAUL SE ABRE Y VES UN CASTILLO R 
ODEADO DE NIEBLA": GO SUB 3800: 
LET OPEN=1: GO TO 6130 

6160 IF OPEN=1 AND Z$="S" THEN 
LET Q$="SALTAS DENTRO DEL BAUL Y 
ERES TRANSPORTADO A LA MONTANA 


DEL CASTILLO DE WARLOCK": GO SUB 
3800: LET 1=86: LET J=9: LET CJ 
=0: GO TO 40 


6170 RETURN 

7000 GO SUB 3000 

7131 IF FIRE AND NOT YT THEN GO 
TO 8600 

7132 1F J+VM=BY AND 1+HM=BX THEN 

GO TO 7139 

7133 IF ATTR 
Ps=":" THEN BEEP 
O THEN RETURN 
7134 IF ATTR (S5+VM,8+HM) >15 AND 
P$=":3" THEN LET SD=0: GO TO 90 
10 

7135 IF (ATTR (5+VM,8+HM)=8 OR A 
TTR (5+VYM, 8+HM)=56) AND Ps$="-.¡!." 
THEN BEEP .1,50: 1F SD=0 THEN 
RETURN 

7136 IF (ATTR (S5+VM, 8+HM)=8 OR A 

TTR (5+VM, 8+HM)=56) AND P$=".4.% 

THEN LET SD=0: GO TO 9010 

7137 1F SCREENS (5+VM,8+HM)<>" " 
THEN BEEP .1,50: IF SD=0 THEN 
RETURN 

7138 IF SCREENS$ 
THEN LET SD=0: GO TO 9010 

7139 INK Oz PAPER 7: PRINT AT 20 
s123" "s LET F=F-INT C(C(ATTR (5 
+YM, 8+HM))/24)2 PRINT AT 20,12;F 

7140 IF F<0O THEN (GO TO 9200 


(5+VM, 8+HM) >15 - AND 
.1,50: IF SD= 


(S+VM, 8+HM) <>" " 
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LET J=J+VM 


7145 LET 1=I+HM: 
7146 1F P$="3%:" THEN LET BX=1: 
LET BY=J 

7147 IF ATTR (5,8)=24 THEN LET 


LET E=E+5: PRINT AT 16, 
"sAT 16,12j3E54T 18,12;” 
1F ST<O THEN 


ST=ST-5: 
123" 
"sAT 18,123ST: 
60 TO 9200 
7150 POKE 57997, 1 
7155 POKE 57998,0 
7160 POKE 57999,3J 
7165 POKE 58000,0 


7170 PRINT : POKE 23689,24: LET 
X=USR 58001 

7171 1F P$=":%" THEN PAPER 1: 1 
NK 7: PRINT AT 5,834" 

7175 IF P$="%" THEN PAPER ATTR 


(5,8)/8: INK Oz PRINT AT 5,8;3"-* 


7176 IF ABS (BX-1)<=8 AND ABS 
Y-J)<=5 AND P$=".%" THEN PRINT 
AT 5+BY-3J,8+BX-15 PAPER 13 INK 7 


El sd 

7180 GO SUB 9000 

7185 IF YT=1 AND Al=255-IN 61438 
THEN GO TO 8600 

7186 IF SD=1 THEN LET SD=0: 
TO 9010 

7190 RETURN 

7500 RETURN 

8000 REM * MONSTRUOS +* 

8010 FOR K=1 TO 20 

8015 IF INKEY$<>"" THEN LET K=2 
1: GO TO 7000 

8020 IF M(K)=1 THEN (GO TO 8099 
8030 IF M(K)<>1 THEN GO TO 8199 
8040 NEXT K 

8050 RETURN 

8099 IF ABS (I(K)-1)=1 AND ABS ( 

J(K)-J)=1 THEN (GO TO 8040 

8100 IF J(K)<J AND PEEK (S(K)+10 

2)=1 THEN LET OLD=J(K): LET J(K 
)=J(K)+1: LET SC=102: GO TO 8110 


8101 IF J(K)>J AND PEEK (S(K)-10 


(B 


GO 


2)=1 THEN LET OLD=J(K): LET J(K 
)=J(K)-1: LET SC=-102: GO TO 811 
o 


8105 GD TO 8160 

8110 IF PEEK S(K)<=7 THEN PAPER 
PEEK S(K) 

8111 INK 7 

8120 IF ABS (I(K)-1)<=8 AND ABS 
(OLD-3)<=5 THEN PRINT AT (5+0LD 
<D) y LSPIIKI)-=LI3GY * 


8140 IF ABS (I(K)-1)<=8 AND ABS 
(J(K)-3)<=5 THEN PRINT AT (5+J( 
K)-3), (8+1 (K)-1)5CHR$ (145+M(K)) 
8150 LET S(K)=S(K)+SC 

8155 INK O 

8160 IF I(K)<I AND PEEK (S(K)+1) 
=1 THEN LET OLD=1(K): LET 1I(Kk)= 
I(K)+1: LET SC=1: GO TO 8170. 
8161 IF I(K)>I AND PEEK (S(K)-1) 
=1 THEN LET OLD=I(K): LET 1(K)= 
I(K)-1: LET SC=-1: GO TO 8170 
8165 GO TO 8040 

8170 PAPER PEEK S(K):z INK 7 

8171 IF ABS (OLD-1)<=8 AND ABS ( 
J(K)-3J)<=5 THEN PRINT AT 5+J(K) 
-J,8+0LD-13" " 

8175 IF ABS (I(K)-1)<=8 AND ABS 
(J(K)-J)<=5 THEN PRINT AT S5+J(kK 
)-3,8+1 (K)-I53CHR$ (145+M(K)) 
8180 LET S(K)=S(K)+SC 

8190 INK O 

8195 GO TO 8040 

8199 IF ABS (I(K)-I)<=1 AND ABS 
(J(K)-J)<=1 THEN GO TO 8300 
8200 IF J(K)<J AND PEEK (S(K)+10 


21<>1 THEN LET OLD=J(K): LET J( 
K)=J(K)+1: LET SC=102: GO TO 821 
9) 


8201 IF J(K)>J AND PEEK (S(K)-10 


2)<>51 THEN LET OLD=J(K): LET J( 
K)=J(K)-1: LET SC=-102: GO TO 82 
10 


8205 GO TO 8260 

8210 PAPER PEEK S(K) 

8211 INK O 

8220 IF ABS (1(K)-1)<=8 AND ABS 
(OLD-3)<=5 THEN PRINT AT (5+DLD 
<=J) e BT ” 

8230 PAPER PEEK (S(K)+5C) 

8240 IF ABS (I(K)-1)<=8 AND ABS 
(J(K)-J)<=5 THEN PRINT AT (5+J( 
K)-J), (8+1 (K)-1I)5CHR$ (145+M(K)) 
8250 LET S(K)=S (K)+5C 

82559 INK O 

8260 IF I(K)<1I AND PEEK (S(K)+1) 
<>1 THEN LET OLD=I(K): LET 1(K) 
=I(K)+1: LET SC=1: GO TO 8270 
8261 IF I(K)>I AND PEEK (S(K)-1) 
<>1 THEN LET OLD=I(K): LET 1(K) 
=I(K)-1: LET SC=-12: GO TO 8270 
8265 GO TO 8040 

8270 PAPER PEEK S(K):z INK O 

8271 IF ABS (OLD-1)<=8 AND ABS ( 
J(K)-J)<=5 THEN PRINT AT 5+J (K) 
-J¿BrOLD-15" > 


Oo 8 0 0 £ QA 0 30 


o. O 


O 


OO o O 


O O O O 44 GA O O O Q—.w0 


0 0 


O 


ÚU $ a O 0 


O 


O 


8275 IF ABS (I(K)-1)<=8 AND ABS 
(J(K)-3)<=5 THEN PRINT AT 5+J(K 
)-3,8+1 (K)-I5CHR$ (145+M(K)) 

8280 LET S(Kk)=S(K)+SC 

8295 GO TO 8040 

8300 LET AD=INT (RNDx*10) 

8305 LET H$=1$ 

8310 LET J$=STR$ AD 

8320 LET I$="ATACADO POR UN MONS 

TRUO SUFRES LA PERDIDA DE "+J$+" 
PUNTOS" 

8330 GO SUB 8500 

8340 LET I$=H$ 

8350 LET ST=ST-AD 

8360 PAPER 7: INK Oz PRINT AT 18 
¿123 PRINT AT 18,123ST 

8365 IF ST<0 THEN GO TO 9200 
8370 GO TO 8040 
8500 INK Oz PAPER 7: 
LEN (1$)+1 

8510 IF K>13 THEN PRINT AT 14,1 

831$(K-13 TO K-1): BEEP .01,5: P 

AUSE 2: GO TO 8530 

8520 PRINT AT 14,31-K53I$(1 TO K) 
: BEEP .01,5: PAUSE 2 

8530 NEXT K 
8540 PAUSE 50: 

REM * RUT. 

LET YT=1 

8605 IF HM=0 AND VM=0 THEN  BEEP 
.1,50: GO TO 7185 

8610 IF SCREENS (5+VM,8+HM)=" " 

THEN BEEP .1,50: GO TO 7185 

8620 FOR R=1 TO 30 

8630 IF J+VM=J(R) AND I+HM=1 (R) 
THEN LET MN=R: GO TO'8650 

8640 NEXT R 

8650 LET AD=INT (RND*ST/5) 

8660 LET HD=INT (RND*10) 

8670 LET H(MN)=H(MN)—AD 

8680 LET ST=ST-HD 
8690 PAPER 7: INK O: 
A 19; " a 
183"A FAVOR: "5 AD 

8700 PAPER 7: INK O: 
,1893" Ma 
183 "EN CONTRA: "5 HD 
8710 PRINT AT 18,123" 
AT 18,123ST 

8715 IF ST<0O THEN GO TO 9200 
8720 IF H(MN)>O THEN 60 TO 7185 
8730 PRINT AT 19,183" 


FOR K=1 TO 


PRINT AT 14,183" 
RETURN 
8400 DE LUCHA + 


8601 


PRINT AT 18 
PRINT AT 18, 


PRINT:AT 19 
PRINT AT 19, 


PRINT 


8740 PRINT AT 18,183" 
8750 
8760 
38790 
8800 
egsio 
8820 
AT 14,12;6 
8830 PAUSE 
8835 PAUSE 
8840 PRINT 


PRINT AT 18,225 "MONSTRUO "” 
PRINT AT 19,225 "MUERTO lá 
LET GD=INT (RND*(MN*5) > 
PRINT AT 20,22;"0DRO= "36D 
LET G=G+GD 
PRINT AT 14,123" 


PRINT 


50 
50 
AT 18,183" 


8850 PRINT AT 19,183" 


8860 PRINT AT 


8870 
7/8): 
ER 7 
88290 LET E=E+1 E 
8900 PRINT AT 16,123" 
AT 16,12jE 
8910 LET J(MN)=INT (RND*689) 
8915 LET I(MN)=INT (RND*102) 
8920 LET S=((J(MN)-1)+102)+1 (MN) 
+50000 
8925 IF PEEK S=1 THEN LET M(MN) 
=1: GO TO 8935 
8930 LET M(MN)=INT (RND*5)+1 
8935 LET S(MN)=S 
8940 LET H(MN)=M (MN) *6 
8950 GO TO 7185 
8999 STOP 
9000 REM *% MAPA * 
9001 FOR K=21 TO 30 
9002 IF M(K)=1 THEN PAPER 1: 
K 7 
9003 IF M(K)<>1 THEN PAPER PEEK 
S(K)z INK O 
9004 IF ABS (1(K)-1)<=8 AND ABS 
(J(K)-J)<=5 THEN PRINT AT S5+J(K 
)-3,8+1 (K)-I53CHR$ (145+M(K)) 
9005 NEXT K 
9006 IF P*é=" a" THEN 
9007 PAPER ATTR (5,8)/89: 
T 3,85P* 
9020 GO TO 9040 
9035 PAPER 7: INK O 
9040 FOR P=1 TO 20 
9041 IF INKEY$<>"" THEN RETURN | 
| 


20,183" 


PAPER 
PRINT 


AT 5+VM, 8+HM3 ” PAP 


PRINT 


l 
1 
| 
I 
| 
1 
Ú 
| 
| 
| 
| 
| 
I 
1 
| 
i 
INT (ATTR (5+VM,8+HM) ¡ 
| 
! 
| 
' 
I 
I 
| 
| 
| 
1 
I 
| 
IN: 


INK 7 
PRINT A: 


9050 IF ABS (1(P)-1)<=8 AND ABS 
(J(P)-3)<=5 THEN GO TO 9056 
9055 GOD TO 9100 


9056 
9037 
9060 
CHR$ 
7061 
9100 
9110 
9200 
9203 

FIN 


PAPER PEEK S(P) 
IF PEEK S(P)=1 THEN  INK 7 
PRINT AT 5+3(P)-J,8+1(P)-15 
(145+M(P)) 

PAPER 7: INK O 

NEXT P 

RETURN 

PAPER 7: INK O 

LET 1$="ESTAS MUERTO 
DE JUEGO" 
9210 GO SUB 8500: 
9300 GO SUB 9500: 
ACLAMAN AL HEROE 
B 3800: GO TO 9300 

9500 REM * MUSICA * 

9505 LET Ni=.25: LET N2=.0625: L 
ET N3=.125 

9510 BEEP N2,21: 
P .3,21: PAUSE 10: 
EEP N2,17: BEEP N2,16: 
4: BEEP N1,13: BEEP .4,14: 
25: BEEP N2,7: BEEP N2,5 


60 TO 9210 
LET Q$="TODOS 
oO su 


BEEP N2,19: BEE 
BEEP N2,19: B 
BEEP N2,1 
PAUSE 


PAUSE 10: BEEP . 
BEEP .17,1: BE 
BEEP N2,-5: 

BEEP N2 
BE 


9520 BEEP N1,7: 
17,4: BEEP .17,5: 
EP 1,2: BEEP N2,-3:2 
BEEP .55,-3: BEEP N2,-5: 
.-7: BEEP N2,-8: BEEP N2,-10: 
EP Ni,-11: BEEP 2,-10 

9530 BEEP N1,-22: BEEP Ni,-11: B 
EEP N1,-8: BEEP N1,-5: BEEP N1,- 
2: BEEP Ni,1: BEEP .5,4: BEEP Ni 
.-5: BEEP N1,-8: BEEP .75,-6 
9600 RETURN 

9900 REM * SALVAR EL JUEGO * 
9910 LET Q$="EL JUEGO VA A SER S 
ALVADO EN SU ESTADO ACTUAL. . . PUL 
sA PLAY Y RECORD Y ENTONCES PULS 
A UNA TECLA" 

9920 LET H$=1$: LET 1$=0$: GO SU 
B 8500 

9925 LET I$=H$ 

9930 SAVE "QUADRILAND" LINE 40 
9940 RETURN 


Mazmorras 
y demonios 


Escenario 


Hace ya algunos años tu padre, el rey de Daal, fue asesinado por el demoníaco Dalverna, con 
un hechizo que extrae la vida de los cuerpos. A la edad de 21 estás preparado para ser rey; pero 
antes de tener derecho a llevar la corona de oro, debes vengar la muerte de tu padre y librar a tu 


gente del perverso Dalverna para siempre. 
Armado con una daga y unos pocos hechizos y llevando puesta una armadura de cuero, entras 


en las mazmorras de Dalverna y tu búsqueda comienza. 


Indicaciones de carga 


El programa es muy largo, ocupando gran parte de la memoria del Spectrum de 48K. Contiene 
muchos datos y caracteres gráficos, que deben ser, como de costumbre, introducidos con cuidado. 
Hay tres áreas principales donde los errores pueden ocurrir y están listadas a continuación; por tan- 
to se debe tener especial atención en lo siguiente: 


1) Los bloques de las líneas 1750-1990 se consiguen pulsando GRAPHICS CAPS SHIFT 8, co- 
mo se hizo en SUPERTANK, y como se describe en el Manual del Spectrum. 
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2) Lás líneas desde la 9000 hasta la 9460 representan los caracteres definidos por el usuario, y 
es importante introducir estos números cuidadosamente. 


3) El mapa es descrito en las líneas 9500-9593 con cada línea data conteniendo seis valores. Ten 
gran cuidado de no omitir ninguno de estos valores y comprueba que cada línea está tecleada 
correctamente antes de continuar con la siguiente. 


Cuando el programa esté terminado y chequeado, sálvalo en cinta usando el comando 
SAVE “MáD” LINE 10 


Técnicas 


A lo largo de este libro se ha hecho referencia varias veces a los gráficos definidos por el usuario. 
Estos son muy útiles cuando se escriben juegos de este tipo, pues permiten al programador definir 
sus propios caracteres para ser reproducidos en la pantalla. 

El sistema operativo del Spectrum da facilidades para 21 de estos gráficos, que se obtienen usan- 
do los caracteres desde GRAPHICS A hasta GRAPHICS U. Si se necesitan más de 21 gráficos, 
podemos usar el método más completo de redefinir todo el conjunto de caracteres, como se explicó 
en la sección de Técnicas del capítulo 2. 

Un carácter en el Spectrum, como en la mayoría de los micro-ordenadores, está basado en una 
rejilla de 8 x 8 como la de la figura 4. 

Para definir un carácter, primero crea una rejilla y pinta los cuadrados que te interesen. Entonces 
hay que transformar la información de cada línea en forma numérica. 


00111100 
01000010 
10000001 
10000001 
10011001 
10011001 
10011001 
TIT 


Esto se realiza usando la notación binaria, con un uno representando un cuadrado en negro 
y un cero para los cuadrados en blanco. 

Estos números deben ser ahora introducidos en la memoria en el lugar apropiado. Esto se puede 
llevar a cabo mediante 


POKE USR “A”, BIN 00111100 


Un método alternativo es usar el corto programa listado a continuación, que no sólo introduce 
los valores en memoria, sino que además presenta en pantalla el carácter ampliado. 


10 CLS 

15 DIM B$(8,8) 

20 PRINT TAB (5)5"DISENADOR DE 
CARACTERES" 

30 PRINT TAB (5)3 "============ 


40 PRINT 
50 INPUT "LETRA GRAFICA= "5A$ 
59 PRINT : PRINT TAB (4)5"BINA 


58 PRINT TAB (4)3"=======" 

60 FOR I=1 TO 8 

70 INPUT "NUMERO BINARIO= "31$ 

73 IF LEN 1$<>8 THEN GO TO 70 

76 LET B$(1)=1$ 

380 PRINT TAB (4)5B$(1) 

90 NEXT 1 

100 CLS 

110 PRINT TAB (5)5"CARACTER AMP 
LIADO" 


130 FOR J=i TO 8 

135 LET S=0 

140 FOR I=1 TO 8 

150 IF B$(J,1)="0" THEN PRINT 
AT J+5, 1+103" " 

160 IF B$(J,1)="1" THEN PRINT 
AT J+5,1+103"*"= LET S=S+(VAL (B 
$(3,1))*(2" (8-1))) 

170 NEXT 1 

180 POKE USR A$+(J-1),S 

190 NEXT J 

195 PRINT : PRINT : PRINT 

200 PRINT "EL CARACTER HA SIDO 
DEFINIDO" 

201 PRINT 

205 PRINT "QUIERES DEFINIR OTRO 

q. 

206 INPUT "S/N "5Y$ 

207 IF Y$="S" THEN GO TO 10 

210 STOP 


Instrucciones de juego 


Al iniciar el juego te encuentras en la habitación 1, y tu misión es moverte a lo largo de las 
mazmorras en busca de armas, tesoros o artefactos que te puedan ayudar en tu tarea final: la des- 
trucción de Dalverna. Durante el juego la información concerniente a tus atributos, armas, etc., apa- 
recerá en la pantalla, y debes observarla con atención, pues influye en el resultado de todos los acon- 
tecimientos. 


Movimiento 


El movimiento por las mazmorras se realiza mediante las teclas indicadas en la tabla 8. 
En general, los monstruos serán más rápidos que tú,por lo que es muy difícil escapar. Si eres 
cogido por un monstruo se iniciará una lucha que terminará con la muerte de uno de los dos. 


TABLA 8 
Tecla Dirección 
7 Arriba 
6 Abajo 
8 Derecha 
5 Izquierda 


Comandos 


Este es un juego de tiempo real, y los combates se inician de forma automática; por tanto, hay 
muy pocos comandos a considerar. Todos los comandos se controlan con una tecla, según se indica 
en la tabla 9. 


TABLA 9 
Tecla Comando 

G Coger un 
objeto 

D Dejar un 
objeto 

H Invocar un 
hechizo 


Sólo puedes llevar un arma, o ponerte una armadura; por tanto, si quieres cambiar de estado, 
debes dejar antes lo que poseas en ese momento. 


Hechizos 


Cuando se llama al comando H, el proceso de tiempo real se detiene para permitirte introducir 
el hechizo deseado. Hay cinco hechizos diferentes disponibles, que actúan como sigue: 


INV Te hace invisible, con lo que podrás escapar de los monstruos. 
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E 


NA a A 


Mr II 


eS 


Con esta red inmovilizas temporalmente a un montruo. 
Incrementará tu fuerza y capacidad de lucha. 


Con éste envías un rayo de luz al monstruo, causándole un daño entre 10 y 30 
puntos. 


Usando este comando lanzas una bola de fuego contra el monstruo, causándole 
entre 10 y 40 puntos de daño. 


E : lcd: Coal 
AS 1 ROAD]: sacd lod Do | mo. 30 ! pose 290 1 leds So don abad 
AE CE Eee: 1H: AE rclrclbr os 


Es : 
dE 


UANEE 


eel 


AR A mo Ñ Mill Ml 


Job 


Atributos del jugador 


Durante el juego es importante prestar atención a estos valores, pues afectan al desarrollo del 
juego de la siguiente manera: 


EG. 


F.D. 


vI 


TORO 


(factor de combate). Esta es tu habilidad para golpear y herir a tu oponente. De- 
pende de tu arma y está en el rango de 0-9. 


(factor de defensa). Esta es tu habilidad para evitar ser golpeado y herido por tu 
oponente. Depende de la armadura y está en el rango 0-9. 


(vida). Representa tu fuerza de vida. Está en el rango de 0 (muerto) — 50 (máxi- 
ma vida). 


(total de oro). Te indica el total de oro que has recogido e influye en tu puntuación 
final. 
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Armas/armaduras 


Cuando dejes un objeto, es importante referirte a él en su nombre correcto, según las abreviatu- 
ras mostradas a continuación. 


TABLA 10 
Objeto Abreviatura 
Daga DAGA 
Maza MAZA 
Espada Corta ESPC 
Espada larga ESP.L 
Espada 2—H ESP.2H 
Espada mágica ESP.M 


Armadura de cuero ARM.CU 
Armadura con 


| cadenas ARM.CA 
| Armadura de chapa ARM.CH 
| Armadura mágica ARM.M 


Adaptación 


El juego ha sido diseñado de forma que un pequeño proceso te permita modificarlo y crear 
un nuevo escenario. 


Método 


Primero, contruye un mapa donde se muestren tanto las habitaciones como las conexiones entre 
ellas (Fig. 5). 
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Cuando el mapa esté completo, su contenido debe ser transformado a forma numérica y alma- 
cenado en el programa a partir de la línea 9500 (para la habitación 1) y en continua secuencia de 
acuerdo con el número de cada habitación. Cada línea data debe contener seis partes de informa- 
ción, indicando las dimensiones de la habitación y las salidas, si las hubiera. De la siguiente forma: 


DATA LONGITUD, ANCHURA, N, E, S, O 


donde 
LONGITUD Longitud de la habitación. Un número entre 12 y 20. 
ANCHURA Anchura de la habitación. Un número entre 6 y 12. 
N Habitación a la que se accede por el norte. 
E Habitación a la que se accede por el este. 
S Habitación a la que se accede por el sur. 
O Habitación a la que se accede por el oeste. 


Por tanto, para el mapa anterior tenemos 
9200 DATA 16,8,2,3,5,8 
9201 DATA 20,10,0,6,1,9 


NOTA: Si en una dirección no existe salida de una habitación se representará con un cero. 
Cuando el mapa esté completamente introducido dentro del programa, debemos cambiar la lí- 
nea 450 de la forma 


450 FOR 1 = 1 TO HABI 


Donde HABI es el número de habitaciones del mapa. 
El juego ya está modificado y se puede salvar en cinta y ejecutar normalmente. 


Notas gráficas 


GRAF ICO 
GRAFICO 
GRAFICO 
GRAFICO 


GRAFICO 
GRAF ICO 
GRAFICO 
GRAFICO 


Listado 


GRAFICO 
GRAFICO 
GRAFTEO 
GRAF ICO 


IMPORTANTE 


TON MONO D 


GRAFICO 
GRAFICO 
GRAFICO 
GRAFICO 


1) El programa debe ser introducido con CAPS LOCK. 


FAOTOZZTO 


2) Los espacios en los textos deben ser copiados tal como aparecen. 
3) Notas gráficas. 


103 


MAZMORRAS Y DEMONIOS 


+ MATRICES *% 


REM 
DIM 
DIM 
DIM 
DIM 
REM 
LET 
LET. 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
REM 


L(100): DIM W(100) 
D(100,4): DIM Q(56) 
S(16): DIM C(40) 
T(8): DIM M(9) 
** VARIABLES +% 
IV=1: LET WE=1 
CR=1: LET FB=1 
LB=1 
A$="ARM. CU” 
W$="DAGA" 
HP=50 
CF=2: 
G=0: 
MO=0 
X=5: LET Y=5 
xXx CARACTERES DEFINIDOS 
POR USUARIO ++ 

RESTORE 9020 
FOR I=1 TO 40 
READ C(1) 

220 NEXT 1 

230 FOR I=1 TO 8: 
+(1-1),C(1): NEXT 1 
240 FOR 1=9 TO 16: 
"+(1I-9),C0(1):2 NEXT 1 
250 FOR 1=17 TO 24: 
"e tI-17),0(1)8 NEXT 1 
260 FOR I=25 TO 32: 
"+ (I-25),0(1)2 NEXT 1 
270 FOR I=33 TO 40: 
"+(1-33),0(1)3 NEXT 1 
280 REM x%%*% HECHIZOS +*%%* 
290 RESTORE 9090 
300 FOR I=i TO 16 
310 READ S(I1) 

320 NEXT I 

330 FOR I=1 TO 8: 
+(I-1),S(1)2: NEXT 1 
340 FOR 1=9 TO 16: 
"+(1-9),S(1): NEXT 1 

350 REM %% ORO 3% 

360 RESTORE 9120 

370 FOR I=1 TO 8 

380 READ T(I) 

390>POKE USR "::i"+(I-1),T(1) 


LET DF=4 
POKE 23658,8 


POKE USR "xx." 
POKE USR ":: 
POKE USR 
POKE USR "4 


POKE USR 


POKE USR "is" 


e 


POKE USR " +» 


400 NEXT I 

410 REM %** INIC. MAZMORRAS *%* 
420 PRINT FLASH 13 INK 23 PAPE 
R 73AT 10,65" INICIALIZANDO MAZMO 
RRAS" 
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+ (1-25) ,0(1)2 


430 PRINT FLASH 135 INK 23 PAPE 
R 73AT 11,105"POR FAVOR ESPERE” 
440 RESTORE 9500 

450 FOR I=1i TO 93 

460 READ L(I) 

470 READ W(I) 

480 FOR J=1 TO 4 

490 READ D(1,J) 

500 NEXT J 

310 NEXT 1 

520 REM %%* BUSQUEDA ++ 

330 PAPER Oz INK 7: BORDER O 
540 CLS 
350 LET 
360 LET 
970 LET 
380 LET RDP=93 

590 REM %* CARACTERES GRAFICOS 
600 RESTORE 9011 
610 FOR I=1 TO 356 
620 READ Q(I1) 

630 NEXT I 

640 FOR I=1 TO 8: 
+(I-1),Q(1): NEXT 1 
650 FOR I=9 TO 16: 
"+(1-9),Q(1): NEXT 1 
660 FOR I=17 TO 24: 
*+(1-17),011): NEXT 1 
670 FOR I=25 TO 32: 
NEXT 1 
680 FOR 1=33 TO 40: 
"+(1-33),0(1): NEXT 1 
690 FOR I=41 TO 48: 
"+(1-41),Q(1): NEXT 1 
700 FOR 1=49 TO 56: 
"+(1-49),Q(1): NEXT 1 
999 LET R=1 
1000 REM ** INICIO JUEGO + 


RAP=INT (RND*4)+66 
RCP=INT (RND*4)+30 
RSP=INT (RND*4)+38 


POKE USR ""E" 
POKE USR "zz: 
POKE USR ": 
POKE USR 
POKE USR 
POKE USR "ii 


POKE USR "E: 


1010 REM *x* VAR. A CERO ++ 

1020 LET M$="":z LET XM=0: LET YM 
=0: LET RE=0: LET RM=0 

1030 LET T$="": LET S$=""2 LET X 
T=0: LET YT=0: LET RT=02: LET T=0 
1040 LET GO=0: LET XG=0: LET YG= 
O: LET RG=0 

1050 LET I$="": LET XD=0: LET YD 
=0: LET RD=0 

1060 LET INV=0: LET WB=0: LET S= 
1 

1063 IF R=RDP THEN GO TO 8000 
1065 IF R=RAP OR R=RSP OR R=RCP 


THEN 60 TO 7350 


MAA 


ANI L 


ALFA IS 


O 


uh 


UN 


e 1 


O "O 
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1070 
1080 
1090 
1100 
1101 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1209 
1210 
1200 
1211 
1212 
1213 
1214 
1215 


REM x*x* MONS 
LET RE=INT 
IF REX<>3 TH 
LET RM=INT 
LET MIC=INT 
LET RM=RM*1 
RESTORE 913 
READ MS 
READ MHP 
READ MDF: R 
FOR I=1 TO 
READ M(I) 
POKE USR "I 
NEXT I 

LET XM=INT 
LET YM=INT 
IF XM<2 OR 


REM xx ORO 
LET RG=INT 
IF RG<8 THE 
LET GO=INT 
LET YG=INT ' 
1216 LET XG=INT 
1218 IF YG<2 OR 
YG=YM OR XG=XT 
G TO 1215 
1220 REM *x* OBJ. 
1230 LET RT=INT 
1240 IF RT<8 THE 


TRUOS xx 
(RND*3) +1 

EN GO TO 1220 
(RND*24)+1 
(RND+*4) +2 

0) 

O+RM 


EAD MCF 
8 


"+ I=1) M1) 


(RND* (W(R)-2) ) 
(RND+*(L (R)-2)) 
YM<2 THEN GO TO 


.* 
(RNDx*10)+1 

N 60 TO 1220 
(RND*100)+1 
(RND*(L (R)-2)) 
(RND*XW(R) ) 

XG<2 OR XG=XM OR 
OR YG=YT THEN 6 


VALIOSOS x*x 
(RND+*10)+1 
N GO TO 1739 


1250 LET T=INT (RND*7)+1 

1260 IF T=1 THEN 60 TO 1330 
1270 IF T=2 THEN GO TO 1410 
1280 IF T=3 THEN 60 TO 1480 
1290 IF T=4 THEN 60 TO 1510 
1300 IF T=5 THEN. GO TO 1540 
1310 IF T=6 THEN GO TO 1590 
1320 IF T=7 THEN 60 TO 1440 
1330 REM x** ESPADAS xx 

1340 LET ST=INT (RNDx8)+1 

1350 IF ST=1 OR ST=2 OR ST=3 OR 
ST=4 THEN LET T$="ESP.C" 

1360 IF ST=5 OR ST=6 THEN LET T 
$="ESP.L" 

1370 IF ST=7 THEN LET T$="ESP.2 
q" 

1390 IF ST=82 THEN LET T$="ESP.M 
1400 LET TC=0: GO TO 1730 

1410 REM *x* ARMADURAS xk+* 

1420 LET AT=INT (RND+*8)+1 

1430 IF AT=1 OR AT=2 OR AT=3 OR 
AT=4 THEN LET T$="ARM. CU" 

1440 IF AT=5 OR AT=6 THEN LET T 
$="ARM.CA" 


1450 
yn" 

1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1545 
1550 
15360 


IF AT=7 THEN LET T*$="ARM.C 


IF AT=828 THEN LET T$="ARM.M 


LET TC=30: GO TO 1730 
REM xX*% DAGA *x 

LET T$="DAGA" ' 

LET TC=60: GO TO 1730 
REM x*% MAZA *%* 

LET Té$="MAZA" 

LET TC=40: GO TO 1730 
REM *x* POCIONES *% 
LET PT=INT (RND*3)+1 
LET T$="POCION" 


IF PT=1 OR PT=2 THEN LET S 


$="POCION CURATIVA" 


1570 
N DE 
1580 
1590 
1593 
1595 
1600 


IF PT=3 THEN LET S$="POCIO 
INVISIEILIDAD” 

LET TC=10: GO TO 1730 

REM *% ANILLOS xx 

LET RR=INT (RND*4)+1 

LET T$="ANILLO" 

IF RR=1 OR RR=2 THEN LET S 


$="ANILLO DE INVISIBILIDAD" 


1610 IF RR=3 THEN LET S$="ANILL 
O DE FUEGO" 

1620 IF RR=4 THEN 'LET S$="ANILL 
O DE LUZ” 

1630 LET TC=20: GO TO 1730 

1640 REM x** LIBRO DE HECHIZOS *x 
1550 LET SR=INT (RND*5)+1 

1660 LET T$="LIBRO DE HECHIZOS" 
1670 IF SR=1 THEN LET S$="INVIS 
TEILIDAD 

1680 IF SR=2 THEN LET S$="RED" 
1690 IF SR=3 THEN LET S$="BOLA 
DE FUEGO" 

1700 IF SR=4 THEN LET S$="RAYO 
DE LUZ" 

1710 IF SR=S THEN LET S$="CURA" 
1720 LET TC=50 

1730 RESTORE 9390+TC 

1731 FOR I=1 TO 8 

1732 READ T(I) 

1734 POKE USR "J"+(I-1),T(1) 
1735 NEXT 1 

1736 LET XT=INT (RNDx*(W(R)-2))+1 
1737 LET YT=INT (RND*(L(R)-2))+1 
1738 IF XT=XM AND YT=YM OR XT<2 


OR YT<2 THEN GO TO 1736 


1/39 
1740 
R O: 
1750 
1750 


REM +** PANTALLA *x* 
GO SUB 9800: PAPER O: 
INK 7 

PRINT AT 0,243 "o 
PRINT AT 1,243 "MARMADU: 


BORDE 


Y] 
ETA 
na 


105 


G 50 O O O SS 606 6 6 0 QQ 30 w_. 


O Odd 0 9d Q 0 


O O Qu 


1765 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 


so 


1880 
5 
1890 
som 
1900 PRINT AT 
eco 
"pu 
1910 PRINT AT 
1920 PRINT AT 
5 
1923 PRINT AT 
1925 PRINT AT 
B3 "mi" 
1930 PRINT AT 16,03 "ies 
Aer 
1940 PRINT AT 17,03 "0 
a 
AT 18,03" 
NT. ORO" 
AT 19,035 "H 
iie======8R" 
AT 20,03 "mi 
mM "56 
1980 PRINT AT 20,313" 'ii" 
1990 PRINT AT 21,03 ” eto aC 
a a 
2010 PRINT AT 0,03 "Ex" 
2020 FOR L=1 TO L(R) 
2030 PRINT AT 0,0O+L3 "33" 
2040 NEXT L 
2050 FOR W=1 TO W(R) 
2060 PRINT AT O+W,0O5"E30" 
2080 NEXT W 
2081 FOR L=1i TO L(R) 
2082 PRINT AT (W-1),L3"33" 
2083 NEXT L 
2084 FOR W=i TO W(R) 
2085 PRINT AT W, (L-1)253 "3" 
2086 NEXT W 
2090 REM %X% PUERTAS *%x* 
2100 LET H=L(R)/2 
2110 LET V=W(R)/2 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


2,245 "i======4p" 
3,245 "W"3AS 

3,315" 
4,243 "Hi 
5, 245 "ii 


ADIOs 


Add 


¡le 


11,243 "MIN "5 IV 
PRINT AT 12,245 "RED —"5WE 


PRINT 


AT 13,243 "CURA" 3 CR 


E 


1950 PRINT 


1960 PRINT 


1970 PRINT 


2120 FLASH 1: INK 5: PAPER O 


2130 IF D(R,1)>0 THEN PRINT AT 
O, H3 “ima 

2140 IF D(R,2)>0 THEN PRINT AT 
Y, L-13 "0 

2150 IF D(R,3)>0 THEN PRINT AT 
W—-1,H3 "gp 

2151 IF D(R,4)>0 THEN PRINT AT 
Y, 03 "ig" 

2152 FLASH Oz INK 7: PAPER O 


2153 REM *x* DESCRIPCION *x* 
2154 GO SUB 8900 

2155 PRINT AT 17,153"DIMENSION: " 
L(R)IX1O03""POR "¿W(R)X1O3 ">" 
2156 PRINT AT 18,13 "MONSTRUO: " 
2157 IF M$<>"" THEN PRINT AT 18 
¿113M8 

2158 IF M$="" THEN PRINT AT 18, 
113 "SUERTE!" 

2159 PRINT AT 19,15 "OBJETO: " 
2160 IF T$<>"" THEN PRINT AT 19 
¿9378 

2161 1F T$="ARM.CU” OR T$="ARM.C 
A" OR T$="ARM.CH" OR T$="ARM.M" 
THEN PRINT AT 19,16; "ARMADURA" 
2162 1F T$="" THEN PRINT AT 19, 
95 "NINGUNO" 

2163 IF GO>0 THEN PRINT AT 20,1 
5 "PIEZAS DE ORO: "560 

2164 IF GO=0 THEN PRINT AT 20,1 
3 "PIEZAS DE ORO: NINGUNA" 

2170 PRINT AT X,Y3":k" 

2180 REM ** CARACTERES x** 

2185 IF WB=1 THEN PRINT AT XM,Y 


M3"06"2 IF X=XM AND Y=YM THEN G 
O TO 7190 

2187 IF R=RAP AND T$<>"" THEN P 
RINT— INK 234T XT,YT3"»": GO TO 
2215 

2190 IF R=RCP AND T$<>"" THEN P 
RINT — INK 63AT XT,YT3" ": GO TO 
2215 

2193 IF R=RSP AND T$<>"" THEN P 


RINT AT XT,YT53"E": GO TO 2215 
2194 IF R=RDP THEN PRINT  INK 3 
5AT XM,YM3" 1": GO TO 8060 

2195 IF R=RAP OR R=RCP OR R=RSP 

AND M$<>"" THEN PRINT  INK INK5 
AT XM-1,YM3":"2 PRINT  INK INK; 

AT XM,.YM5 "5" 


2196 IF RDP=99 THEN PRINT  INK 
33AT XM,YM3""": GO TO 2200 
2197 IF M$<>"" THEN PRINT — INK 


MIC;AT XM,YM3" 5" 
2200 IF T$<>"" THEN PRINT AT XT 
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> YT; ” 5 
2210 IF GO<>0 THEN PRINT  INK 6 
¿AT XG,YG;" , 
2215 IF 1$<>"" THEN PRINT AT XD 
¿Din 
2230 INPUT INKEYS$ 
2235 IF INV=1 THEN  INVERSE 1 
2250 IF INKEY$="H"” THEN 60 TO 64 
000 
2260 IF INKEY$="C"” THEN GO TO 4 
000 
2270 IF INKEY$="D" THEN 60 TO 3 
000 
280 IF INKEY$="5"” THEN GO TO 2 
330 
2290 IF INKEY$="6" THEN GO TO 2 
330 
2300 IF INKEY$="7" THEN GO TO 2 
330 
2310 IF INKEY$*="8" THEN GO TO 2 
330 
2316 IF INKEY$="" THEN PRINT AT 
Kad 
2317 INVERSE O 
2318 IF M$<>"" THEN GOD SUB 2620 
2320 GO TO 2180 S 
2330 REM *%*% CARACTERES *%x 
2335 INVERSE O 
2340 PRINT AT X,Y3" " 
2345 IF INV=1 THEN INVERSE 1 


IF INKEY$="8" THEN LET Y=Y 
GO SUB 2500: PRINT AT X,Y3":% 


2360 IF INKEY$="6" THEN LET X=X 
+1: GO SUB 2500: PRINT AT X,Y3":1 
2370 IF INKEY$="7" THEN LET X=X 
—-1: GO SUB 2500: PRINT AT X,Y3"'i 
2380 IF INKEY$="5" THEN LET Y=Y 
-1: GO SUB 2500: PRINT AT X,Y3" 


2444 REM *% SIGUIENTE HABITACION 


2350 
+1: 


2450 IF D(R,1)>0 AND 
THEN LET PS=1:2 LET 

O TO 2560 

2460 IF D(R,2)>0 AND 

L-2) THEN LET PS=2: 
): GO TO 2560 

2470 IF D(R,3)>0 AND 
Y=H THEN LET PS=3: 
): 60 TO 2560 

2480 IF D(R,4)>0 AND 
THEN LET PS=4: LET 

O TO 2560 


X=1 AND Y=H 
R=D(R,1): G 


X=V AND Y=( 
LET R=D(R,2 


X=(W-2) AND 
LET R=D(R,3 


X=V AND Y=1 
R=D(R,4): G 


2490 GO TO 2315 


2500 REM ** PAREDES +*x 

2510 IF X<1 THEN LET X=X+1 

2520 IF X>=(W-1) THEN LET X=X-1 
25330 IF Y<1i THEN LET Y=Y+1 

2540 IF Y>=(L-1) THEN LET Y=Y-1 
2550 RETURN 

2560 REM ** POS. SIG. HAB. *+* 
2565 PRINT AT X,Y3" "z INVERSE O 
2570 IF PS=1 THEN LET X=(W(R)-2 


32: LET Y=L(R)/2 

2580 IF PS=2 THEN LET X=(W(R)>/2 
): LET Y=2 

25390 IF PS=3 THEN LET X=2: 
Y=L (R)/2 

2600>IF PS=4THEN LET X=W(R)/2:LE 
T Y=L(R)-2 

2610 GO TO 1000 

2620 REM *%* MONSTRUOS ++ 

2630 PRINT AT XM,YM3" ” 

2633 IF R=RAP OR R=RSP OR R=RCP 
THEN PRINT AT XM-1,YM53" ":z GO T 


LET 


INV=i THEN GO TO 2720 
X<XM THEN LET XM=XM-1 
X>XM THEN LET XM=XM+1 
Y<YM THEN LET YM=YM-1 
Y>YM THEN LET YM=YM+1 
XM<=0 THEN LET XM=XM+1 
XM>=(W-1) THEN LET XM=X 


YM<1 THEN LET YM=YM+1 
YM>=(L-1) THEN LET YM=Y 


IF R=RAP OR R=RCP OR R=RSP 

PRINT — INK INK5AT XM,YM3": 
PRINT — INK INK5AT XM-1,YM5" ¿4 
GO TO 2730 

2716 IF RDP=99 THEN PRINT 
33AT XM,YM53"9": GD TO 2730 
2720 PRINT  INK MIC5AT XM,YM3" 1 


INK 


2730 IF XM=X AND YM=Y THEN GOD S 
UB 27530 

2740 RETURN 

2750 REM *x* COMBATE Xx 

2765 GO SUB 8900 

2766 1F RDP=99 AND RAP<>99 THEN 
PRINT AT 17,15"SIN EL HACHA DE 
"z PRINT AT 18,153"GARATH, DALVER 
NA ES": PRINT AT 19,15" INVENCIBL 

E !'"z PRINT AT 20,15"HAS MUERTO 
EN COMBATE.”: GO TO 8600 

2780 LET TH=INT ((RND*18)+1)+(MC 
F—DF) 

2790 IF TH<10 THEN PRINT AT 17, 


107 


O 0 6 G a y 


oO 0 O 


O 


13M$5" PIERDE.": GO TO 2830 

2800 IF TH>=10 THEN LET DAM=INT 
(RNID*MCF ) +1 

2810 PRINT AT 17,15M$5" TE GOLPE 

A "3DAM 

2820 LET HP=HP-DAM 

2830 REM x** CAR. COMBATE ++ 

2840 LET TH=INT ((RND*18)+1)+(CF 

—MDF ) 

2850 IF TH<10 THEN PRINT AT 18, 

1;5"HAS PERDIDO.": GO TO 2890 

2860 IF TH>=10 THEN LET DAM=INT 
(RNID+*CF) +1 

2870 PRINT AT 18,15"TU GOLFEAS ” 

53 DAM : 

2880 LET MHP=MHP-DAM 

2890 IF HP<1 THEN PRINT AT 19,1 

5"ESTAS MUERTO '": GO TO 8600 

2895 IF RDP=99 AND MHP<1 THEN 6 

O TO 8530 

2900 IF MHP<i THEN PRINT AT 19, 

13M$5" ESTA MUERTO. ": LET M$="": 
LET MO=M0+1: PAUSE O: GO TO 215 

3 

2910 

bn > ” 

2920 

2925 

2930 


IF HP<10 THEN PRINT AT 15, 


PRINT AT 15,213HP 

PAUSE 30 

RETURN 

3000 REM x*% DEJAR *x% 

3001 IF T$<>"" AND X=XT AND Y=YT 
THEN 60 TO 2230 

3003 IF RD=1 THEN GO TO 2230 

3010 GO SUB 8900 

3020 PRINT AT 17,1;"QUE ES LO QU 

E QUIERES” 


3030 PRINT AT 18,153"DEJAR 2” 
3040 INPUT 1$ 

3050 PRINT AT 18,11;31$ 

3060 1F I$="DAGA" OR I$="MAZA” T 
HEN GO TO 3100 

3070 IF I$="ESP.C”" OR I$="ESP.L” 


OR I$="ESP.2H" OR I$="ESP.M" TH 
EN GO TO 3100 | . 
3080 IF I$="ARM.CU” OR I$="ARM.C 
A" OR I$="ARM.CH" OR I$="ARM.M" 
THEN 60 TO 3170 

3090 LET 1$=""z GO TO 2153 


3100 IF CF=9 THEN LET I$="": G0 


TO 2133 

3105 IF I$<>W$ THEN LET I$="": 
GO TO 2153 
3110 LET W$=" “e LET UCF=O 
3120 PRINT AT 7,253W$: PRINT AT 
15,75 CF 


OR I$="ESP.L" 
TH 


3130 IF I$="ESP.C" 
OR I$="ESP.2H" OR I$="ESP.M" 
EN LET TC=0 
3140 IF I$="DAGA" 
O 
3150 1F 
O 
3150 GO 
3170 IF 
TO 2153 
3175 IF 1$<>A$ THEN LET I$="": 
G0 TO 2153 
3180 LET A$=" "; 
3190 PRINT AT 3,2536: 
15,153DF 
3200 LET TC=30 
3210 RESTORE 9390+TC 
3220 FOR I=1 TO 8 
3230 READ T(I) 
3240 POKE USR "K"+(I-1),T(1) 
3250 NEXT 1 
3260 LET XD=X: 
1 
3270 
4000 


THEN LET TC=6 


I$="MAZA" THEN LET TC=4 
TO 3210 


DF=9 THEN LET I$="": GO 


LET DF=0 
PRINT AT 


LET YD=Y: 


GO TO 2133 

REM %*% COGER *%x 

4010 GO SUB 8900 

4020 IF X=XT AND Y=YT THEN GO T 
D 4120 

4030 IF X=XG AND Y=YG THEN GO T 
O 4060 

4050 GO TO 2133 

4060 REM *x* ORO *% 

4080 LET G=G+60 

4090 LET GO=0 

4100 PRINT AT 20,2356 

4110 GO TO 2133 

4120 REM x%*% OBJETOS *%x* 

4125 IF R=RAP THEN GO TO 7440 
4127 IF R=RCP THEN GO TO 7610 
4128 IF R=RSP THEN GO TO 7760 
4130 PRINT AT 17,1;"OBJETO:- " 
4135 IF T$="" THEN PRINT AT 17, 
105 "NINGUNO. ": PAUSE 50: 
153 


4136 IF T$="LIBRO DE HECHIZOS" T 


HEN GO TO 4150 

4137 1F S$<>"" THEN PRINT AT 18 
,135$: GO TO 4150 

4140 PRINT AT 17,103T$ 

4150 IF T$="ESP.C" OR Té$="ESP.L" 
OR T$="ESP.2H" OR T$="ESP.M" TH 
EN 60 TO 4210 
4160 IF T$="MAZA" 
HEN GO TO 4210 
4170 IF T$="ARM.CU” OR T$="ARM.C 


OR T$="DAGA" T 


GO TO 2 


LET RD= 
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A” OR T$="ARM.CH"” OR T$="ARM.M" 
THEN GO TO 4320 

4180 IF T$="POCION"” THEN GO TO 
4410 

4190 IF T$="LIBRO DE HECHIZOS" T 
HEN GO TO 4450 

4200 IF T$="ANILLO” THEN GO TO 
4530 

4205 GOD TO 2153 

4210 REM x*x*% ARMAS ex 

4215 IF CF=9 THEN 6G0 TO 4300 
4220 IF W$<>" " THEN GO TO 
2153 


4230 LET W$=T+3 


4240 IF W$="DAGA" THEN LET CF=2 
4250 IF W$="MAZA" THEN LET CF=3 
4260 IF W$="ESP.C" THEN LET CF= 
4 

4270 IF W$="ESP.L" THEN LET CF= 
6 

4280 IF W$="ESP.2H" THEN LET CF 
=7 

4290 IF W$="ESP.M" THEN LET CF= 
8 

4300 PRINT AT 7,255W$: PRINT AT 
15,73 CF 


4310 LET Ts$="" 

4311 1F I18<>"" THEN 60: SUB 7100 
4312 GO TO 2153 

4320 REM %% ARMADURAS xx 

4325 IF DF=9 THEN GO TO 4390 
4330 IF A$<>" '" THEN 60 TO 
2133 

4340 LET A$=T$ 


4350 IF A$="ARM.CU" THEN LET DF 


2366 IF A$="ARM.CA” THEN LET DF 
270 IF A$="ARM.CH” THEN LET DF 
ea IF A$="ARM.M" THEN LET DF= 
O PRINT AT 3,2554: PRINT AT 
15,153 DF 


4400 LET Tg$="" 

4401 IF I$<>"" THEN GO SUB 7100 

4405 GO TO 2153 

4410 REM %x* POCION 3% 

4420 IF PT=1 OR PT=2 THEN LET C 

R=INT (RND*2)+1 

4430 IF PT=3 THEN LET IV=IV+INT 
(RID+*2) +1 

4444 PAUSE O 

4445 LET T$="": GO TO 7000 

4446 REM ** LIBRO DE HECHIZOS +*x* 


4450 PRINT AT 18,15"EL LIBRO DE 


HECHIZOS CONTIENE" 


4460 PRINT. AT 19,15"EL HECHIZO: 
"55$ 

4465 PAUSE O 

4470 IF SR=1 THEN LET IV=IV+1 
4480 IF SR=2 THEN LET WE=WE+1 
4490 IF SR=3 THEN LET FB=FB+1i 
4500 IF SR=4 THEN LET LB=LB+1 
4510 IF SR=5 THEN LET CR=CR+1 
4520 LET T$="":* GO TO 7000 
4530 REM *%X% ANILLOS ++ 

4540 IF RR=1 OR RR=2 THEN LET 1 


V=IV+INT (RND+*2)+1 

4550 IF RR=3 THEN LET FB=FB+INT 
(RND*2) +1 

4560 IF RR=4 THEN LET LB=LB+INT 
(RND*2)+1 

4565 PAUSE O 

4570 LET T$=""2z GO TO 7000 

6000 REM %* INVOCACION DE HECHI. 

6010 GO SUB 8900 

6020 PRINT AT 17,1;3"QUE TIPO DE 

HECHIZO" 

6030 PRINT AT 

CAR 2" 

6040 INPUT C$ 

6045 PRINT AT 

6046 PAUSE 50 

6047 1F RDP=99 THEN GO SUB 8900 

z PRINT AT 17,15"LOS HECHIZOS NO 


18,1;"QUIERES INVO 


18,19;C+$ 


FUNCIONAN": PAUSE O: GO TO 21533 
6050 IF C$="INV" THEN GO TO 612 
O 
6060 IF C$="RED"” THEN GO TO 617 
0) 

6070 IF C$="BFUE"” THEN GO TO 62 
30 

6090 IF C$="RLUZ"” THEN GO TO 67 
20 

6100 IF C*$="CURA” THEN GO TO 69 
ja) 

6110 GO TO 2153 

6120 REM *%% INVISIREILIDAD *+* 
6130 IF IV<i THEN GO TO 7240 
6150 LET IV=IV-1 

6155 IF R=RAP OR R=RSP OR R=RCP 
THEN GO SUB 8900: PRINT AT 17,1 
3"EL DEMONIO TODAVIA TE PUEDE"5A 
T 18,13"VER !": PAUSE 200 

6157 LET INV=1 

6160 GO TO 7000 

6170 REM *x* RED *%x% 

61735 LET WB=1 

6180 IF WE<i THEN GD TO 7240 


O O 0 9 0 dd Ya 


0 0 0 O 0 
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6190 
6195 
THEN 
"LA 


LET WE=WE-1 

IF R=RAP OR R=RCP OR R=RSP 
GO SUB 8900: PRINT AT 17,1 
RED NO FUNCIONA"5AT 18,1;5"”P 


UES EL DEMONIO ES"3AT 19,15"DEMA 


SIADO FUERTE.": 


PAUSE 1000: GO T 


oO 7000 


6200 
6205 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 


LET M$="" 

LET MO=MO+1 

PRINT AT XM, YM3 "o9" 

GO TO 7000 

REM x*x* BOLA DE FUEGO *x%* 
IF FB<i THEN (GO TO 7240 
IF M$="" THEN (GO TO 2153 
LET FB=FB-1 

LET DAM=INT (RND*30)+11 
LET MHP=MHP—-DAM 


IF MHP<1 THEN LET M$="":z L 


ET MO=MO0+1 


6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 


M THEN 


6700 
K 7: 
6705 
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YF=Y 
LET 
LEF 
LET 
LET 


LET XF=X: LET 
IF XM<XF THEN 
IF XM>XF THEN 
IF YM<YF THEN 
IF YM>YF THEN 
INK 2: BRIGHT 1 
PRINT AT XF,YF3"w" 
PAUSE 4 

PRINT AT XF,YF3" ” 
INK O: BRIGHT O 

IF R=RDP AND XF=XM 
60 TO 8270 
XF=XM AND YF=YM 
TO 7000 

R=RDP AND XF=XM 
60 TO 8270 

TO 6310 

REM x** RAYO DE LUZ *x* 

IF M$="" THEN (GO TO 2153 
IF LB<1 THEN GO TO 7240 
LET XL=Yx*8+4 

LET YL=172-8*X 

PLOT XL, YL 

LET XF=YMx*8+4 

LET YF=172-8*XM 

LET DX=XF-XL 

LET DY=YF-YL 

INK 5 

DRAW DX, DY 

PAUSE 10 

INK O 

PLOT XL,YL 

DRAW DX, DY 

PAUSE 10 

INK 7 

LET LB=LB-1 


XF=XF-1 
XF=XF+1 
YF=YF-1 
YF=YF+1 


AND YF=Y 


1 THEN IN 


GO 


IF AND YF=Y 


6920 
6940 
6945 


LET DAM=INT (RND*20)+11 
LET MHP=MHP—DAM 


IF MHP<1 THEN LET M$="": L 


ET MO=MO+1 


6930 
69535 
67960 
6965 
6970 
6973 
6980 
6985 
7000 
7010 
7020 
7030 
7040 
70350 
7060 


GO TO 7000 

REM x** CURACION +x%* 

IF CR<i THEN GO TO 7240 
LET CR=CR-1 

LET RCR=INT (RND*10)+11 
LET HP=HP+RCR 

IF HP>50 THEN LET HP=50 
PRINT AT 15,213HP 

REM %*%* INDICADORES *x 

IF 1Y4>9 THEN LET IV=9 
IF WE>9 THEN LET WE=9 
IF FB>9 THEN LET FB=9 
IF LB>9 THEN LET LB=9 
IF CR>9 THEN LET CR=9 
PRINT AT 11,303IV: PRINT AT 


12,30; WE 


7070 


PRINT AT 13,303CR: PRINT AT 


14,303LB 


7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
71650 
7170 
7180 
=0: 
7190 
7200 
7210 
TU . 
7220 


PRINT AT 15,30;FB 

60 TO 2153 

REM x** CAMBIO DE OBJETO +*x 
LET Té$=1$ 

LET XT=XD: LET YT=YD 
RESTORE 9390+TC 

FOR I=1 TO 8 

READ T(1) 
POKE USR 
NEXT 1 
LET 1$="": 


"+ tI=1) 5 1613 


LET XD=0: LET YD 


RETURN 


REM x%%* COGIDO EN TU RED x** 
GO SUB 8900 
PRINT AT 17,1;"HAS CAIDO EN 


PRINT AT 18,15"PROPIA RED. 


ESTAS MUERTO!" 


7223 
7230 
7240 
7250 
7260 
ESE 
7270 
7280 
7290 
7350 
7360 
a" 
7362 
NA" 
7363 
DO" 


PAUSE O 

GO TO 8600 

REM %% ERROR EN HECHIZO *%% 
GO SUB 8900 

PRINT AT 17,15"TU NO POSEES 
PRINT AT 18,15"HECHIZO." 
PAUSE 350 

GO TO 2153 

REM ** BUSQUEDA *x 

IF R=RAP THEN LET T$="HACH 
IF R=RCP THEN LET T$="CORO 


IF R=RSP THEN LET T$="ESCU 


O O 0 0 0 0 Q 


| 
' 
| 
/ 
| 
| 
/ 
I 
/ 
| 
| 
t 
| 
| 
| 
| 
l 
l 
| 
l 
l 
' 
| 
| 
¡ 
1 
1 
i 
| 
| 
! 
| 
| 
1 
' 
l 
| 
| 
! 
Ú 
I 
l 
I 
I 
| 
1 
I 
| 
l 
l 
l 
| 
1 
| 
1 
l 
I 
' 


40 AO 


7370 LET M$="DEMONIO" "2 PRINT AT XM-1,YM5" * 


| ' 
| 1 
O | 7380 LET MHP=60: LET MCF=8: LET 7740 LET RCP=99 O 
| MDF=8 7750 GO TO 2153 
o | 7382 IF R=RAP'THEN LET INK=2 7760 REM *x* ESCUDO ** O 
| 7384 IF R=RCP THEN LET INK=3 7770 GO SUB 8900 
Al | 7385 IF R=RSP THEN LET INK=4 7780 PRINT AT 17,153"HAS ENCONTRA | 
3 O ¡| 7390 LET XT=W(R)/2 DO EL"3AT 18,1;3"ESCUDO DE KELRIN ¡O 
y ¡ 7400 LET YT=L (R)/2 ,» EL GRAN"5AT 19,1; "GUERRERO QUE : 
2 O ! 7410 LET XM=XT-1 CREO UN "5AT 20,15"ESCUDO QUE P¡ O 
¡ 7420 LET YM=YT-1 ROTEGIERA" 
E ¡ 7430 GO TO 1739 7820 PAUSE O o 
] O : 7440 REM ** HACHA ** 7830 GO SUB 8900 
z ' 7450 PRINT AT 17,1;"HAS ENCONTRA | 7840 PRINT AT 17,1;"DE LOS HECHI 
= O ' DO EL HACHA” ZOS DE"5AT 18,15"DALVERNA. CON E ¡; O 
y | | 7460 PRINT AT 18,1;"DEL GRAN HER | STE ESCUDO"; AT 19,1;3"SUS HECHIZO 
z lO | DE GARATH, " S SON INUTILES." O 
d ¡ 7470 PRINT AT 19,1;5"QUE LUCHO CO | 7870 PAUSE O 
j : NTRA DALVERNA. " 7880 LET T$="" : O 
3 | O 1 7490 PAUSE O 7890 LET DF=9: PRINT AT 15,143DF | 
* ¡ 7500 GO SUB 8900 7900 LET M$=""* PRINT AT XM,YM3" ; 
. O : 7510 PRINT AT 17,1;"CON ESTA POD "s PRINT AT XM-1,YM3" ” AE 
t ¡ EROSA ARMA" 7910 LET RSP=99 | 
y , 7520 PRINT AT 18,13 "YA PUEDES AT | 7920 GO TO 2153 O 
E O ACAR" 8010 LET M$="DALVERNA" | 
$ ¡7530 PRINT AT 19,1;3"AL MALVADO D | 8020 LET MHP=40: LET MCF=9: LET 
O | ALVERNA. " MDF=0 ¡O 
¡; 7540 PAUSE O 8030 LET XM=4 
Lo ¡7560 LET CF=9: LET W$="HACHA " 8040 LET YM=17 0 
| 7570 PRINT AT 7,25;3W$: PRINT AT 8050 GO TO 1739 | 
45,71€6F 8070 GO SUB 8900 
O | 7590 LET T$="":z LET RAP=99 8075 PRINT AT X,Y3"4" O 
7593 LET M$="": PRINT AT XM,YM5" | 8080 PRINT AT 17,153"POR FIN! HAS 
o! "+ PRINT AT XM-1,YM3" " ENCONTRADO"5AT 18,1;5"AL QUE TE 0 
' 7600 GO TO 2153 HA TRAIDO"5AT 19,1;"A ESTE INFIE 
' 7610 REM *x* CORONA ex RNO, "5AT 20,15"EL MALIGNO DALVER | y 
O : 7615 GO SUB 8900 NA. ” 
: 7620 PRINT AT 17,15"HAS ENCONTRA | 8120 PAUSE O 
O ¡| DO LA” 8130 GO SUB 8900 ¡O 
; 7630 PRINT AT 18,1;"CORONA DEL M | 8140 PRINT AT 17,13"TE SALUDA CO | 
y o | AGD YAGA" N UNA"5AT 18,15"DIABOLICA SONRIS : y 
7640 PRINT AT 19,1;"QUE RESISTIO | A Y DICE:"5AT 19,1;5"* ENHORABUENA ' 
EL PODER” HAS LLEGADO, "5AT 20,1;"PERO TOD | O 
O | 7650 PRINT AT 20,15;"HIPNOTICO DE | O HA SIDO EN VANO? " | 
' DALVERNA" 8180 PAUSE O | 
O ' 7660 PAUSE O 8190 60 SUB 8900 O 
' 7670 GO SUB 8900 8200 PRINT AT 17,1;"EN ESE MOMEN : 
o | 7680 PRINT AT 17,15"CON LA CORON | TO UNA BOLA "sAT 18,153"DE FUEGO | y 
' A PODRAS” APARECE Y SE"3AT 19,15"LANZA SOB |! 
7690 PRINT AT 18,153"VENCER LA VO | RE TI." 
O ' LUNTAD" . 8240 PAUSE O 1 O 
7700 PRINT AT 19,153"DE DALVERNA. | 8250 LET YM=YM-15: LET Y=Y+15 
a” 8260 GO TO £300 Ho 
' 7710 PAUSE O 8270 LET YM=17: LET Y=2 
¡7720 LET T$="" 8275 INK 7: GO SUB 8900 ] 0 
O | 7730 LET M$="": PRINT AT XM,YM;5" | 8280 IF RSP=99 THEN GO TO 8330 
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GO O 0 


8290 PRINT AT 17,15"COMO NO ESTA 

BAS";AT 18,1;"PROTEGIDO POR EL E 

SCUDO DE KELRIN"”5AT 19,153"HAS SI 

DO CARBONIZADO.”: GO TO 8600 

8330 PRINT AT X,Y3":;:": PRINT AT 
17,1;"LEVANTAS EL ESCUDO DE"5AT 
18,15"KELRIN Y LA BOLA DE FUEGO 
"sAT 19,15”"SE DESVIA.” 

8370 PAUSE O 

837535 GO SUB 8900 

8380 PRINT AT 17,1;3”DE REPENTE N 

OTAS UNA"3AT 18,13 "PRESENCIA TRA 
TANDO DE "3AT 19,15"CONTROLAR TU 
MENTE” 

8420 PAUSE O 

8430 GO SUB 8900 

8435 IF RCP=99 THEN GOD TO 8480 

8440 PRINT AT 17,15"DALVERNA CON 
SIGUE"53AT 18,13”CONTROLAR TU VOL 

UNTAD"3AT 19,15"Y TE CONVIERTES 
EN UN"3AT 20,15”GUARDIAN MAS DEL 
LABERINTO": GO TO 8600 

8480 PRINT AT 17,15"USANDO EL PO 
DER DE LA CORONA"5AT 18,15"DE YA 

GA RESISTES"3AT 19,15”LA VOLUNTA 

D DE DALVERNA" 

8510 PAUSE O 

8515 LET RDP=99 

8520 GO TO 2153 

8530 REM %* VICTORIA ++* 

8540 CLS 

8550 PRINT FLASH 13 INK 2; 

R 83AT 5,65 "ENHORABUENA !” 

8560 PRINT AT 7,15;"HAS TERMINADO 
LA AVENTURA. ” 

8570 LET SC=M0+6G+500 

8580 PRINT AT 9,35 "PUNTUACION: ” 
35C3" PUNTOS" 


PAPE 


8590 STOP 

8600 REM *x% MUERTE xx 

8605 PAUSE O 

8610 CLS 

38620 LET SC=M0+G 

8630 PRINT AT 5,65 "PUNTUACION: " 


3503" PUNTOS" 
8640 PRINT AT 10,2; "QUIERES INTE 
NTARLO DE NUEVO?” 


8650 INPUT 0Q$ 

8660 IF 0$="S" THEN CLS : GO TO 
70 

8670 STOP 

8900 REM *LIMFIA ZONA MENSAJES* 
8910 INVERSE O 

8920 PRINT AT 17,13” 

8930 PRINT AT 18,13" 


PRINT AT 19,13" 


PRINT AT 20,13" 


RETURN 
REM 
DATA 


8940 


8950 


8960 
9000 
9012 
8,30 
9013 
9014 
9015 
8 
9016 DATA 
¿250,114 
9017 DATA 
224,127 
9018 DATA 255,149,251,141,243,17 
5,209,255 

9020 REM *x* CARAC. *x* 

DATA 


153,153,126,60,24,24,2 


DATA 
DATA 
DATA 


0,0,240,96,255,96,94,0 
0,170,84,124,0,0,0,0 
127,65,73,93,42,34,20, 


139,115,118,46,126,250 


126, 128,58,58,115,226, 


DATA 48,48,30,122,24,56,46, 


DATA 88,88,126,26,26,60,36, 


DATA 24,24,60,90,90,60,36, 1 


DATA 26,26,126,88,88,60,36, 
REM ** HECHIZO xx 
DATA 149,82,173,58,93, 180,7 


DATA 0,0,24,60,60,24,0,0 
REM *x* ORO x%% 

DATA 0,0,0,0,0,56,102, 221 
REM x** MONSTRUOS x*x* 

9140 DATA "BEHOLDER",35,2,6,60,6 
6,153,189,153,129,66,60 

9150 DATA "CENTAURO”,27,5,4,192, 
192,64,102,127,127,34,68 

9160 DATA "AXEBEAK",16,3,6,64,22 
443276, 124, 122,17, 32 

9170 DATA "COUATL",17,5,4,24,38, 
70,32,30,1,98,28. 

9180 DATA "DEMONIO",55,7,8,153,2 
19,165,153,189,219,153,189 

9190 DATA "DJINNI",45,6,6,12,12, 
51,33,34,76,112,192 

9200 DATA "ETTIN",29,4,6,102,102 
,24,255,189,60,36, 102 

9210 DATA "MINOTAURO",25,3,5,36, 
24,90,165,153,24,36,66 

9220 DATA "FANTASMA",23,5,6,24,3 
6,36,66,66,129,129,129 


9230 DATA "GOLEM",35,4,6,60,60,2 


12,12,120,94,24,28,116 
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met 


1d 


19,189,189,189,36,195 

9240 DATA "ARPIA",16,4,2,60,90,2 
4,60,60,60,24,24 

9250 DATA "GOBLIN",7,2,1,0,56,16 
, 108,186, 145,56,108 

9260 DATA "ROPER”,40,2,7,145,186 
, 108,57,125, 186,56, 124 

9280 DATA "DEGOLLADOR",20,3,5,24 
,52,90,118,237,187,237,187 

9290 DATA "MURCIELAGO", 14,4,3,36 
,24,90,255,255,126,36,0 

9300 DATA "PUDD",50,1,3,0,0,24,1 
26, 127,255, 255,255 

9310 DATA "WISP",15,8,4,96,240,2 
40,102,15,15,6,0 

9320 DATA "VAMPIRO",46,4,7,24,24 
,60,60,60,60,60,60 

9330 DATA "AGLOID",34,1,4,24,60, 
255,219,60, 102, 102,231 

9340 DATA "GAMBODO",16,3,1,24,24 
, 252, 155,24, 48,96, 192 

9350 DATA "GRELL",27,1,7,60,90,1 
02,60,74,145,145,74 

9350 DATA "BULLEWUG",6,1,1,152,1 
53,194,188,152,164,36,66,5 

9370 DATA "WYVERN",45,4,7,35,198 
,46,28,12,8,4,3 

9380 REM ** OBJETOS *x* 

9390 DATA 0,0,64,255,64,0,0,0 
9400 DATA 8,8,8,28,62,62,28,0 
9410 DATA 8,20,8,0,0,0,0,0 

9420 DATA 24,24,0,153,153,129,36 
¿36 

9430 DATA 0,0,0,64,252,64,0,0 
9440 DATA 0,0,248,168, 248,168, 16 
8,248 

9450 DATA 0,64,240,64,0,0,0,0 
9460 DATA 0,0,0,0,0,56,102,221 
9500 REM +*x* MAZMORRAS +*x* 

9501 DATA 10,10,2,0,0,0 

9502 DATA 10,10,4,3,1,0 

9503 DATA 10,10,0,0,0,2 

9504 DATA 20,8,7,5,2,0 

9505 DATA 14,10,6,59,0,4 
9506 DATA 8,8,0,0,5,0 
9507 DATA 20,12,0,0,4,8 
9508 DATA 20,12,0,7,9,0 
9509 DATA 6,12,8,0,10,0 
9510 DATA 10,12,9,11,0,0 
9511 DATA 8,10,0,0,12,10 
9512 DATA 20,8,11,0,13,0 
9513 DATA 8,12,12,0,0,14 
9514 DATA 10,12,15,13,0,0 
9515 DATA 18,10,16,0,14,0 
9516 DATA 14,10,17,0,15,0 
9517 DATA 12,12,0,19,16,18 


9318 
4319 
9320 
9521 
9322 
9523 
9524 
95325 
95326 
9527 
9328 
9529 
9330 
9531 
9532 
9333 
9534 
95935 
95336 
9337 
9538 
95339 
9540 
9541 
9542 
9543 
9544 
9545 
95346 
9547 
9348 
9549 
9350 
9551 
953532 
93393 
9554 
95553 
9556 
9337 
953538 
9539 
9360 
9561 
9362 
9563 
9364 
9565 
95366 
9567 
9568 
9569 
9570 
9571 
95372 
9373 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


10,6,0,17,0,0 
12,6, 20,0,0,17 
18,6,21,0,19,0 
198,12,22,0, 20,0 
20,12,0,23, 21,25 
12,8,24,0,0,22 
10,12,0,0,23;0 
20,8,26,22,0,27 
5,12,0,0,25,0 
10,12,0,25,0,28 


20,12,30,27,34,29 


16,8,0,28,0,0 
20,10,31,0,28,0 
12,6,0,32,30,0 
12,12,33,0, 0431 
5, 12,0,0, 3240 
14,8,28,35,0,0 
14,8,0,37,36,34 
20,10,35,0,0,0 
10,10,0,0,0,35 
Er 12, 37,0, 0, 0 
12,12,0,40,38,0 
20,6,0,41,0,39 
20,6,0,42,0,40 
20,12,0,47,23, 41 
6,12,42,0,44,0 
10,6,43,46,0,45 
dr 5 Da Rd Oe 0 
10,6,47,48,0,44 
16,6,0,0,46,42 
20,6,0,49,0,46 


20,12,50,51,53,48 


6,12,0,0,49,0 
20,8,0,52,0, 49 
10,8,0,0,0,51 
6,12,39,0,54,0 
8,12,53,0,55,0 
10,12,54,57,56,0 
6,12,55,0,58,0 
16,10,0,0,0,35 
20,12,56,78,0,59 
20,12,0,58,60,5 
16,10,59,61,0,0 
20,8,0,77,62,60 
10,12,61,0,70,63 
20,8,0,62,0,64 
16,12,66,63,65,0 
18,6,64,0,0,0 
10,10,0,0,64,67 
20,8,0,66,0,68 
10,12,0,67,69,0 
20,12,68,0,0,0 
18,310,062, 71,010 
20, b, On 727 0, 70 
16, 8,0,73,0, 71 
19,8,74,0,0,72 


O 


O 


O 


¡O) 


O 


O 
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o | 2574 DATA 20,12,0,0,73,75 9586 DATA 6,6,0,0,0,85 O 
¡9575 DATA 16,10,76,74,0,0 9387 DATA 20,10,90,0,85,88 
¡9576 DATA 8,12,79,0,75,77 9588 DATA 20,8,0,87,0,89 6 
O | 9577 DATA 20,12,78,74,0,61 9389 DATA 6,12,0,88,0,0 
9578 DATA 16,12,0,0,77,58 9590 DATA 18,12,91,93,87,0 | 
O | 9579 DATA 8,12,80,0,76,0 9591 DATA 16,10,0,0,90,92 O 
| 9580 DATA 18,12,81,82,79,0 93792 DATA 20,12,0,91,0,0 
| 9581 DATA 16,6,0,0,80,0 9393 DATA 20,12,0,0,0,90 O 
O 9582 DATA 20,8,0,83,0,80 9800 FOR Z=0 TO 12: PRINT AT Z,0 
¡| 9583 DATA 20,8,84,0,0,82 ga "s NEXT | 
O | 9584 DATA 20,6,85,0,83,0 Z: RETURN El 
20,10,87,86,84,0 
I I 
O 1 
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El parque 
Nightmare 


Escenario 


Así que después de jugar a los otros juegos de este libro, te crees bueno resolviendo aventuras, 


¿eh? Bien, en ese caso intenta ésta para probar. 
En un paseo por una profunda y oscura caverna, tropiezas de pronto con un letrero 


ESTE ES EL PARQUE NIGHTMARE 
ENTRA BAJO TU RESPONSABILIDAD 


MANTENTE EN LA VEREDA 


Bien; siendo un aventurero de gran calibre, éste es un reto que no puedes rechazar. Luego prepá- 
rate y entra en el parque de Nightmare. 


117 


E 
io lalala 


a 


O | 


dl 


E sa ra mee z 
lego id Hu 1% yl 


Mea dad bid 


do0ud 


Indicaciones de carga 


La introducción del programa es muy sencilla, y la única dificultad puede aparecer en las líneas 
referentes al Carnivorous Caterpillar (líneas 1225-1235), que deben ser tecleadas cuidadosamente, - 
asegurándose de que los números relativos a la función CHR están correctos. 


| 


Técnicas 


En este programa se usa muy a menudo la función aleatoria para producir las diferentes proba- 
bilidades en cada sección. 

Como sin duda sabrás, por haber leído el Manual del Spectrum, la función RND del BASIC 
de Sinclair produce un número en el rango 0-1. En muchos casos éste es satisfactorio, pero en oca- 
siones deseamos generar un número entero en un rango específico, para simular una muerte. Si éste 
es el caso, el número debe ser primero incrementado usando algún factor de escala y entonces ser 
convertido en un número entero usando la función INT. 


Ejemplo 
Para generar un número en el rango 1-6 podríamos hacer 
PRINT INT (RND *x 6) + 1 
Instrucciones de juego 


La idea básica del juego es conseguir llegar al otro lado del parque de Nightmare sin ser aplasta- 
do, devorado o convertido en cenizas. Pero, créeme, no es fácil. 
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Notas gráficas 


GRAFICO M 
GRAFICO N 
= GRAFICO O 


Listado 


IMPORTANTE 
1) El programa debe ser tecleado usando CAPS LOCK. 


2) Los espacios deben ser copiados textualmente. 
3) Notas gráficas. 


EL PARQUE NIGHTMARE 


O - Y 


5 INK Oz PAPER 7: PAPER 7: BR 
IGHT Oz CLS 

7 PAPER 7: BORDER 7: INK O: P 
RINT AT 0,0;3"EL LETRERO DICE" 

8 PRINT 2: PRINT CHR$ 1395: FO 
R G=1 TO 30: PRINT CHR$ 13133 NE 
XT Gz PRINT CHR$ 135 

9 PRINT CHR$ 1383" ESTE ES E 


L PARQUE NIGHMARE —"5CHR$ 1335CH 
R$ 1385" 

"5CHR$ 1333CHR$ 1383" ENTR 
A BAJO TU RESPONSABILIDAD" 5 CHR$ 
1333CHR$ 1383" 

"5CHR$ 1335CHR$ 1385 
INVERSE 153" MANTENTE EN 
LA VEREDA !"; INVERSE 03" "5 CHR 
$ 1333CHR$ 1423: FOR G=1 TO 30: 
PRINT CHR$ 1805: NEXT G:z PRINT C 
HR$ 141 

10 FOR I=1 TO 300: NEXT lz FOR 
I=0 TO 23: READ A: POKE USR "it 
"+1,A: NEXT 1: DATA BIN 01001110 
,+BIN 11111101,BIN 11111111,BIN O 
1111111,BIN O011110,BIN O111110, 
BIN 00111100,BIN O1100100,BIN 00 
001000,BIN 00000100,BIN 00000010 
,BIN 11111111,BIN 00000010,BIN O 


0000100,BIN 00001000,BIN 0000000 
O 

11 DATA BIN O00111000,BIN OO111 
000,BIN 00010000,BIN 11111110,BI 


N 00010000,BIN 00101000,BIN 0010 ' 


1000,BIN 00101000 
15 LET X=1: LET Y=10 


30 PRINT AT 0) 05" ARRTLRAAN a 


31 PRINT " pp Ar ARARUR E 
rra ago: PRINT "oe 
A O A 
dee 

32 PRINT "apoR 

bee e e de e E 

33 PRINT "rie aa As 
a A E 

34 PRINT "NES PREIS 
e 

35 PRINT "a 
E A 

36 PRINT "Me RA cd 
MAA AER 

37 PRINT "rr Ae RR 
MR A E 

38 PRINT "ar RRE ERA 
e a E 
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Ó O O O € OQ O O QQ Q0 


O 


O 


O QUO 


39 PRINT "-> 


cid 


40 PRINT 


e 


A a A 


41 PRINT 


de ee e de e E 


Bee e e e 


42 PRINT 


a ran 


Re e ee E 


43 PRINT "urnas 
pl rro otra Arco 
44 PRINT "wr 


a 


a a 


A A 


45 PRINT "rated ara 
let a 
46 PRINT "aaa Oca. 


AA 


47 PRINT 


de e e e E e 


hide det e e 
48 PRINT "mear IAE 
e de e A 
49 PRINT "arpa 
e de A e 


70 PRINT AT Y, 


Xx 5 ” cd " 


80 LET Q$=INKEYS 


81 IF 0$="" THEN (GO TO 80 

82 IF 0$<>"5" AND Q$<>"6" AND 
0$<>"7" AND 0$<>"8" THEN GO TO 
80 

85 IF 0$<>"5" THEN GO TO 90 

86 IF SCREENS (Y,X-1)<>" " THE 
N GO TO 9800 

87 PRINT AT Y,X3" " 

88 LET X=X-1 

89 PRINT AT Y,X3"*": GO TO 10 


00 
90 1F Q$<.>"6" 


THEN G0 TO 93 


104 LET X=X+1 

105 PRINT AT Y,X3"0"s 
00 
1000 LET Z=(INT (RND*100)-80):2 1 
F zZ<0 THEN GO TO 1000 
1010 IF X=30 AND Y=10 THEN PAPE 


GO TO 10 


R Oz INK 7: BORDER Oz CLS : BRIG 
HT 1: IF RND>.98 THEN GO TO 102 
o 


1011 IF X<>30 OR Y<>10 THEN GO 
TO 1050 
1012 PRINT AT 0,03 FLASH 13"HA H 
A HA HA HA HA HA HA HA HA HAHA H 
A HA HA HA HA HA HA HA HA HA"; F 
LASH OjAT 4,053"HAS CAIDO EN UN P 
ROFUNDO, OSCURO, HORRIBLE AGUJERO 
LLENO DE NAUSEABUNDAS CRIA 
TURAS QUE SE ENCUENTRAN NORMAL 
MENTE EN LAS CLOACAS."”: GO TO 
9820 
1020 PRINT AT 10,0;3"IMPOSIBLE !! 
LO HAS CONSEGUIDO! ! 
QUE ESTAS ES 
UN SON DE TR 
INTENTALO DE 
FOR I=i TO 200: 


PERANDO 277? 
OMPETAS 27277 
NUEVO 20 t121t1 
NEXT I: RUN 


1050 IF Z>=2 THEN GO TO 1200 
1051 LET P$="": BORDER 1: PAPER 
ls INK 72 CELS 
1052 PRINT AT 2,03"HAS TROPEZADO 
CON EL MATEMATICO LOCO. SE LLAM 
"5 INVERSE 13"RICHARD"3 INVERS 
E 03” TE DICE: !'! TIENE 
S QUE RESOLVER RAPIDAMENTE ESTA 
OPERACION !!” 


1053 LET Ni=INT 
1054 LET N2=INT 
1055 LET N3=INT 
1056 LET N4=INT 


(RND*10) 
(RND*10) 
(RND+*10) 
(RND*10) 


91 IF SCREENS (Y+1,X)<>" " THE 
N GO TO 9800 

92 PRINT AT Y,X3" " 

93 LET Y=Y+1 

94 PRINT AT Y,X3"%": GO TO 10 
00 

93 IF Q$<>"7" THEN GO TO 100 

96 IF SCREENS (Y-1,X)<>" " THE 


N GO TO 9800 


97 PRINT AT Y, 


98 LET Y=Y-1 


99 PRINT AT Y, 


00 
100 IF Q$<>"8" 


xs" " 
X53""z= GO TO 10 


THEN G0 TO 80 


101 1F X+i=31 AND Y=10 THEN GO 


TO 9900 
102 IF SCREENS 
N GO TO 9800 


103 PRINT AT Y, 


Y ¿AFI " THE 


X5 0) ” 


1058 LET M$="("+STR$ N1+" + "+ST 
R$ N2+" -= "+5TRS N3+"9"+" 2 *+ST 
R$ N4 

1059 PRINT AT 7,03M% 

1060 LET ANS=((((N1+N2)-—N3)*N4) ) 
1061 LET J=300 
1062 FOR I=1 TO 30 
1065 LET A$=INKEYS$: 
9: NEXT G: LET J=J-1: 
N GO TO 1130 

1066 IF A$="" THEN GO TO 1065 
1067 IF CODE A$=13 THEN GO TO 1 
100 

1068 IF CODE A$>57 OR CODE A$<48 
THEN GO TO 1065 


FOR G=1 TO 1 
IF J=0 THE 


O O QL—..Ó 0 a 0 0 


O 


O 0 


Oo 0 


O 


o nba; 1d 


ba pal a jad Ala bie 


4 O A ol 2 td 1; * qua 


pl ro an tn Pr 


1 ty? ala 9 ai dc te 


: 
. 
-— 


SO 


QO “% 0 6 0 0 60 


1070 LET P$=P$+A$ 

1080 PRINT AT 10,05P$ 

1085 NEXT 1 

1100 IF LEN P$=0 THEN GO TO 106 
5 

1105 IF P$( TO 1)="." THEN LET 

P$="0"+P$ 

1108 IF ANS=VAL P$ THEN GO TO 1 
120 

1110 CLS : PRINT AT 3,03 FLASH 1 
5"HA HA HA HA HA HA HA HA HA HA 

HA"3 FLASH O 

1115 PRINT AT 6,0;"ERROR!! LA RE 
SPUESTA ERA "3ANS 


11146 PRINT AT 9,05 
A HA HA HA HA HA *"; 
1117 GO TO 9820 
1120 CLS : PRINT AT 3,03 INVERSE 
15"DRAT DRAT DRAT DRAT DRAT DRA 
* "5 INVERSE O 
1121 PRINT AT 10,05"LO CONSEGUIS 
TEs.n... NO SERA ASI 
LA PROXIMA VEZ.....” 
1125 FOR I=1 TO 200: 
DER 7: PAPER 7: INK O: 
TO 30 
1130 CLS : FOR I=0 TO 10: 
1: PRINT AT 1,05"HA HA HA 
HA HA HA HA HA HA"s5 FLASH 


FLASH 13"HA H 
FLASH O 


BOR 
G0 


NEXT I: 
CLS 2 


FLASH 
HA HA 
Oz NE 


XT 4 


1135 PRINT AT 9,053"SE TE ACABO E 
L TIEMPO... TE QUEDAS SIN 
SABER LA RESPUESTACORRECTA. ” 
1136 PRINT AT 11,05 FLASH 13"HA 
HA HA HA HA HA HA HA HA HA HA"s 
FLASH O: GO TO 9820 
1200 IF Z>4 THEN GO TO 1300 
1201 CLS : PRINT "EL ENIGMATICO 
ETIMOLOGO DICE: DETRAS DE DOS 
PUERTAS ESTA EL CARNIVORUS CAT 


ERFILLAR. ELIGE TUCAMINO. ” 

1202 FOR I=6 TO 16: PRINT AT 1,0 
3" "5: FOR G=1 TO 7: PRINT CHR$ 
1433: NEXT G:z PRINT " "52 FOR 
G=1 TO 7: PRINT CHR*$ 1435: NEXT 
G: PRINT * "53 FOR G=1 TO 7: P 
RINT CHR$ 1433: NEXT G:z NEXT 1 
1203 PRINT AT 5,03” 1 

2 se 

1204 LET S=INT (RND*3)+1 

1205 LET A$=INKEY$: IF A$="" OR 
CODE A$<49 OR CODE A$>51 THEN G 
O TO 1205 

1206 IF S<>VAL A$ THEN GO TO 12 
20 


1207 IF S=i THEN FOR I=i46 TO 6 
STEP 12 PRINT AT 1,15" 
FOR J=1 TO 10: NEXT J: 

GO TO 1240 

1208 IF S=2 THEN FOR I=16 TO 6 

STEP -1s5 PRINF AT 1,115” ss 
: FOR J=1 TO 10: NEXT J: NEXT 1: 
GO TO 1240 

1209 IF S=3 THEN FOR I=16 TO 6 


NEXT 1: 


STEP -—-i:z PRINT AT 1,2153" di 
s FOR J=i TO 10: NEXT J:z NEXT I: 
GO TO 1240 

1220 IF VAL A$=1 THEN LET Q=1 
1221 IF VAL A$=2 THEN LET Q=11 
1222 IF VAL A$=3 THEN LET QO=21 
1225 PRINT AT 16,03" ": FO 
R J=1 TO 10: NEXT J 

1226 PRINT AT 15,03” e 0 
R J=1 TO 10: NEXT J 

1227 PRINT AT 14,03" ">= FO 
R J=1 TO 10: NEXT J 

1228 PRINT AT 13,053"  —"5CHR$ 133 


¿CHR$ 1363" ": FOR J=1 TO 10: 
NEXT J 

1229 PRINT AT 12,03” "5CHR$ 132 
3CHR$ 1415CHR$ 1435CHR$ 1433" ": 
FOR J=i TO 10: NEXT J 

1230 PRINT AT 11,0Q;3" "3CHR$ 

1433" "z FOR J=i TO 10: NEXT J 
1231 PRINT AT 10,03"  "353CHR$ 143 


¿CHR$ 143;CHR$ 143;3CHR$ 1433" 
FOR J=1 TO 10: NEXT J 
1232 PRINT AT 9,03"  —"5CHR$ 142; 
CHR$ 1405CHR*$ 1405CHR$ 1403" 
FOR J=1 TO 10: NEXT J 
1233 PRINT AT 8,0Q3" 
CHR$ 1315CHR$ 13053" 
TO 10: NEXT J 
1234 PRINT AT 7,03" ";CHR*$ 129;C 
HR$ 1395CHR$ 1395CHR$ 1395" 
FOR J=1 TO 10: NEXT J 
1235 PRINT AT 6,03" "5CHR$ 133;C 
HR$ 13053" "3CHR$ 1355" FOR J 
=1 TO 10: NEXT J 
1236 FOR I=1 TO 250: NEXT I: 
DER O: PAPER Oz INK 7: CLS 
1237 PRINT AT 0,03 FLASH 15"HA H 
A HA HA HA HA HA HA HA HA HA"; F 
LASH O: PRINT AT 3,05"QUE TAL SE 
R LA CENA DE UN CATERPILLA 
R 2": PRINT AT 9,03 FLASH 135 "HA 
HA HA HA HA HA HA HA HA HA HA"s 
FLASH O: GO TO 9820 
1240 PRINT AT 19,0;"QUE SUERTE E 
STAS TENIENDO !'!!'! ESTOY SIENDO 


"5CHR$ 139; 
FOR J=1 


BOR 


O 


O 
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DEMASIADO AMABLE !!": FOR I=i T 
O 250: NEXT Il: GO TO 30 
1300 IF Z>6 THEN 60 TO 
1301 BORDER 4: PAPER 4: 
Ls 
1302 PRINT "EL FANTASMA LUMINOSO 
APARECE. . . -SU NOMBRE "5 FLASH 1 
5 "RELANPAGUEARA"5 FLASH 05” ANTE 
TUS OJOS." 
1304 RESTORE 1305 
1305 DATA "PEDRO", "CARLOS", "FELI 
PE”, "JUAN", "ANGEL", "JAVIER", "ANT 
ONIO", "JOSE", "ALFONSO", "LUIS", "E 
MILIO", "JESUS", "MANOLO", "FRANCIS 
Co”, "ROBERTO", "MIGUEL", "PABLO", " 
FEDERICO", "DAVID","JORGE"”, "CESAR 
" "ALEJANDRO", "VICENTE", "IGNACIO 
" "HECTOR", "OSCAR", "CLEMENTE", "A 
LVARO" 
1306 LET A=INT (RND*28)+1 
1307 FOR I=1 TO Az: READ A: 
I 
1308 FOR I=1 TO INT (RND*200)+LE 
N A$: LET D=RND: LET G=RND: PRIN 
T AT INT (D*19)+2, INT 10+INT (G+* 
20)3A$(1-LEN A$*INT (I/LEN A$)+1 
TO I-LEN A$*INT (I/LEN A$)+1): 
NEXT 1 
1309 FOR I=1 TO 3: NEXT I 
1310 INK 4: PRINT AT INT (Dx*19)+ 
2, INT 10+INT (G*20)-LEN A$;A$ 
1311 INK O 
1312 INPUT "NOMBRE ? "3 LINE C$ 
1313 CLS : IF C$=A9$ THEN PRINT 
AT 10,05 FLASH 13 " HHHMMMMMMMMMMM 
MMMMMMMMMMMMMMMMMM"5 FLASH 05AT 
12,0; "PARECE SER QUE HAS ACERTAD 
D.....LA PROXIMA VEZ TENDRAS PEO 
R SUERTE.": FOR I=1 TO 250: 
NEXT 1: PAPER 7: INK O: BORDER 7 
s CLS : GO TO 30 
1314 BORDER O: PAPER Oz INK 7: C 
LS : FOR I=1 TO 4: PRINT FLASH 
13AT 1,0;"YA BOO SUX YA BOO SUX 


1400 
INK O: C 


NEXT 


YA BOO SUX";3 FLASH O: NEXT 1 
1315 PRINT : PRINT "MAL, MAL, MA 
Ls ERA a....0 "sas 


1316 PRINT : PRINT FLASH 15"YA 
BOO SUX YA BOO SUX YA BOO SUX": 
GO TO 9820 

1400 IF Z>8 THEN GO TO 1500 
1401 BORDER 7: BRIGHT Oz PAPER 7 
z INK Oz CLS 

1402 PAPER S: FOR I=1 TO 250: PR 
INT AT INT (RND*18)+3, INT (RND+*3 


122 


2)3"%": NEXT Il: PAPER 7 

1404 PRINT AT 0,05"AQUI ESTA LUR 
GI. SAL RAPIDO !!" 

1405 PRINT AT 2,03"->+"5AT 21,315 

ne" 

1406 LET XX=1: LET YY=2: PRINT A 
T YY,XX3"%*"z FOR I=150 TO O STE 
pp 

1407 PRINT AT 2,103" 
51 

3 

1408 LET A$=INKEY$: 

ND A$<>"7" AND A$<>"6" 
5" THEN NEXT 1 


"¡AT 2,10 


IF A$<>"8" A 
AND AS$<>" 


1409 LET HM=0: LET VM=0 

1410 IF A$="7" AND YY=2 THEN NE 
AY 1 

1411 IF A$="46" AND YY=21 THEN N 
EXT 1 

1412 IF A$="5" AND XX=0 THEN NE 
xXT I 

1413 IF A$="8" AND XX=31 THEN N 
EXT 1 

1420 IF A$="7" AND ATTR (YY-1,XX 
)=40 THEN GO TO 1460 

1421 IF A$="6" AND ATTR (YY+1,XX 
)=40 THEN 60 TO 1460 

1422 IF A$="5" AND ATTR (YY, XX-1 
)=40 THEN GO TO 1460 

1423 IF A$="8" AND ATTR (YY, XX+1 
)=40 THEN GO TO 1460 

1430 IF A$="7" THEN LET VM=-1 
1431 IF A$="6" THEN LET VM=1 
1432 IF A$="5" THEN LET HM=-1 
1433 IF A$="8" THEN LET HM=1 
1440 PRINT AT YY,XX3" ": LET YY= 
YY+VM: LET XX=XX+HM: PRINT AT YY 


¿XX53"+"53AT 2405 ss AT 214 315"E" 
1441 LET HM=0: LET VM=0 
1442 IF SCREENS (YY,XX+1)="E" TH 
EN GO TO 1450 
1443 NEXT 1 
1444 PAPER O: 
LS : PRINT AT 
NAAAAA HA HA 
1445 PRINT AT 


INK 7: BORDER Oz € 
0,0;3"NA NA NA NAAA 
HA HA": FLASH O 
4,05"SE ACABO EL T 
IEMPO GO TO 9820 
1450 PRINT AT 10,05 FLASH 15"COM 
O LO HAS CONSEGUIDO ??"5 FLASH O 
: FOR I=1 TO 200: NEXT Il: CLS : 
GO TO 30 
1460 PAPER O: 


BORDER Oz INK 7: 
LS : PRINT AT 0,03 FLASH 13"HA 
A HA HA HA HA HA HA HA HA HA"; 
LASH Oz PRINT AT 4,03"LURGI TE 
A COMIDO GO TO 9820 
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H 


| 
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| 
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Do AD A Aa EU LE 


O 


o 


rr) tol 


PS 


A ÁS A A QA 


«q Vo 


A + AA cc it 


O 


GO OO QQ Yu 


1500 IF Z>10 THEN GO TO 1600 
1501 INK O: PAPER 7: BORDER O: B 
RIGHT O: CLS : PRINT AT 0,03 FLA 
SH 13"LOS LUJURIOSOS LASERS !!!! 
111111%5 FLASH O5AT 20,1653"-" 
1502 FOR I=1 TO 100: NEXT I: 
2: PLOT 50,167: BEEP .1,10: 
W 130-INT (20*RND),-167 
1503 PLOT 100,167: BEEP .1,10: D 
RAW 40-INT (RND*20),-167 
1504 PLOT 150,167: BEEP .1,10: D 
RAW —20+INT (RND*20),-1467 
1505 IF ATTR (20,16)<>56 THEN F 
OR I=1 TO 200: NEXT l:z PAPER O: 
BORDER Oz INK 7: PRINT AT 0,03 F 
LASH 13"CHUPON !! CHUPON !! CHUP 
ON !'!"3 FLASH O5AT 4,03 "FREIDURA 
ESTA NOCHE EH 
s FLASH 1;3"HA HA HA HA HA HA HA 
HA HA HA HA"3 FLASH Oz GO TO 982 
10) 

1506 FOR I=1 TO 200: NEXT 1: PAP 
ER 7: BORDER 7: INK Oz CLS : FOR 
1=0 TO 21: FLASH 1: PRINT AT I, 
O; "IMPOSIBLE !'! TE HAN PERDIDO ! 
1": NEXT 1: FLASH Oz FOR I=1 TO 

200: NEXT lz:z CLS : GO TO 30 
16500 IF Z>12 THEN GD TO 1700 
1601>INK 7: BORDER S5S:PAPER S5:BRIG 
HT 1:CLS :¿PRINT AT 0O,O5FLASH 15" 
LA HORRENDA GRANIZADA !'!'!!!!!!!! 
"5FLASH O3AT 15,163"-75" 
1602 FOR I=1 TO 21: FOR J=1 TO 3 
1 
1503 IF INT (RND*2.5)=1 THEN PR 
INT AT TJ." 
1504 NEXT J:2 NEXT I 
1605 IF SCREEN$ (15,16)="." THEN 
PAPER Oz INK 7: BORDER Oz BRIG 
HT Oz CLS : PRINT AT 0,03 FLASH 
15"SESOS APLASTADOS SESOS APLAST 
ADO"; FLASH OjAT 4,03 "ALCANZADO 
POR EL GRANIZO !!'!!!!!"3 FLASH 1 
¿AT 9,03"HA HA HA HA HA HA HA HA 
HA HA HA"; FLASH Oz GO TO 9820 
1506 PAPER 7: BORDER 7: BRIGHT O 
* INK Oz PRINT AT 10,0;3"DEBE HAB 
ER ALGUN FALLO EN EL 


PROGRAMA 
, PUES TE ESTAS SALVANDO": FOR I 
=1 TO 200: NEXT Il: CLS : GO TO 3 
10) 

1700 IF Z>14 THEN GO TO 1800 
1701 CLS : PRINT AT 10,03 FLASH 
1;"CUIDADO CON LOS ASTERISCOS !! 
111% FLASH O3 FOR I=1 TO 100: N 
EXT I: CLS 


INK 
DRA 


1702 LET XX=16: FOR K=1 TO 60: P 
RINT AT 10,XX3" ": LET Q=USR 328 
Oz IF SCREENS$ (10,XX)="x" THEN 
GO TO 1730 


1703 PRINT AT 10,XX53"-": FOR J= 


O TO 31: IF INT (RND*1.5)=1 THEN 
PRINT AT 21,J5 PAPER 55"x"3 PA 
PER 7 


1704 NEXT J: LET A$=INKEY$: IF A 


$="5" AND XX=0 THEN NEXT K 
1705 IF A$="8" AND XX=31 THEN N 
EXT K 


1706 IF A$="5" AND ATTR (10,XX-1 
)=40 THEN GO TO 1730 
1707 IF A$="8" AND ATTR (10,XX+1 
)=40 THEN GO TO 1730 
1708 IF A$="5" THEN LET XxX=XX-1 
: PRINT AT 10,XX+15" "5AT 10,XX3 
»n. q. 
1709 IF A$="8" 
: PRINT AT 10,XX-13" 
nn 2. 
1710 NEXT K 
1711 FOR I=0 TO 21: 
XX3" ": RANDOMIZE USR 3280: 
T AT 10,XX53"-%": NEXT 1 
1720 PRINT AT 0,0;"UAU !'! LO HIC 
ISTE. NUNCA MAS !!!"z FOR I=1 TO 
200: NEXT lz CLS : GO TO 30 
1730 PAPER O: BORDER Oz INK 7: C 
LS : PRINT AT 0,03 FLASH 13"HA H 
A HA HA HA HA HA HA HA HA HA"; F 
LASH 053AT 4,03"LOS ASTERISCOS TE 
HAN COGIDO '''ESTAS JUGANDO O E 
CHANDOTE UNA SIESTA ?22?2??2??": G 
O TO 9820 
1800 GO TO 80 
9800 BORDER O: 
LS 
9810 PRINT AT 3,05 FLASH 15"HA H 
A HA HA HA HA HA HA HA HA HA"sAT 
£,03 FLASH 0; "DEBERIAS LEER LOS 
LETREROS CON MAS ATENCION !!!" 


THEN LET XX=XX+1 
"AT 10,XX5 


PRINT AT 10, 
PRIN 


PAPER O: INK 7: C 


¿AT 9,03 FLASH 153"HA HA HA HA HA 
HA HA HA HA HA HA"; FLASH O 
9820 FOR I=1 TO 200: NEXT I:z CLS 


: PRINT AT 14,0;"EL PARQUE NIGH 
TMARE YA TIENE UNA”"5AT 15,83 "NUE 
VA VICTIMA !!” 
9830 PRINT AT 20,05 
TRA PARTIDA ? SI TE ATREVES 
98335 INVERSE O 
9840 LET A$=INKEYS: 
N G0 TO 9840 
9845 IF A$="S" OR At="s" 
ORDER 7: PAPER 72 INK O: 


INVERSE 15"0 


IF A$="" THE 


THEN B 
RUN 


o 0 O 


O 


123 


124 


9850 IF A$="N" OR A$="n" THEN 6 9903 GO SUB 9914: PRINT AT 21,03 y 
O 0 TO 9855 9905 RANDOMIZE USR (PEEK USR "U" ¡ O 
: 9852 GO TO 9840: +256*PEEK (USR "U"+1)+101) 
O: 9855 CLS : PRINT AT 11,33 FLASH 9906 INPUT X:z PRINT X O 
| 15 "BIEN PENSADO !!"3 FLASH O5AT 9908 LET A=PEEK USR "U"+256x*PEEK : 
13, 05"NO OBSTANTE AQUI TIENES O (USR "U"+1)+2 
O 1 TRA PARTIDA !!!" 9909 GO SUB 9914: GO TO 9905 ¡O 
| 9866 FOR I=1 TO 200: NEXT lz RUN | 9911 INPUT Z$ | 
O A 9912 PRINT ....:7Ís 1..019009.00 O 
¡ 9900 LET S=PEEK USR "U"+256*PEEK 9913 GO TO 9903 | 
o) (USR "U"+1): POKE S+1,1 9914 POKE A+1, INT (X/256) O 
9901 LET X=S+2818 9915 POKE A,X-256*INT (X/256) | 
¡9902 LET A=5+99 9916 RETURN 
l O) 
¡ 1 


A 


PU 1 LS y a as $ a 


Sugerencias 
para el programador 


Como complemento al libro, aquí tienes algunas indicaciones que te serán muy útiles a la hora 
de escribir tus propios programas de aventuras. 


PANTALLAS DE PRESENTACION 


El fichero de presentación visual del Spectrum está situado en las posiciones 16384-22527 para 
los puntos que van a ser activados en la pantalla, y en las 22528-23295 para los atributos. Prueba 
a hacer algún POKE en estas posiciones y verás lo que ocurre. 

Sin embargo, hay ocasiones en que puede ser interesante hacer cambios en la pantalla sin que 
aparezcan en ésta hasta que nosotros lo deseemos. Para esto es necesario tener en otra área de me- 
moria una segunda pantalla, donde puedes «imprimir» caracteres. 

Habrás observado que cuando se carga una pantalla de una cinta (usando LOAD “pantalla” 
SCREENS), el dibujo aparece línea a línea, y muy lentamente. Si quieres que el dibujo aparezca 
de repente debes de guardarlo, en principio, fuera del fichero de presentación visual, por ejemplo, 
con LOAD “pantalla” CODE direc, donde direc indica la posición de memoria donde se va a empe- 
zar a guardar el fichero. Después, simplemente, tienes que copiar en el fichero de presentación los 
bytes guardados a partir de direc. Para esto puedes utilizar un sencillo bucle FOR o, si tienes conoci- 
mientos de código máquina, una subrutina muy corta en ensamblador (por ejemplo, usando la ins- 
trucción LDIR). 
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al ordenador que no machaque estas posiciones con el programa en BASIC. Para ello sólo tienes 

que poner el valor de RAMTOP necesario para que quepan 6.144 bytes de fichero + 768 bytes 

de atributos (en total, 6.912). Observa que los atributos pueden ser tratados independientemente del 

resto del fichero de presentación. Para modificar el valor de RAMTOP puedes hacer dos POKEs ' 

en las posiciones correspondientes (23730 y 23731) o, más fácilmente, hacer un CLEAR. Consulta 

tu manual para más detalles. 
| 
G 


Para crear una segunda pantalla, en primer lugar debes reservar memoria suficiente, e indicar 


CREACION DE LABERINTOS 


En este libro los laberintos son fijos, y se suelen inicializar al principio de los programas por 
medio de sentencias DATA, o directamente con LET. Por tanto, una vez que conozcas el laberinto, 
el juego pierde mucho interés. Para evitar esto sería interesante poder crear un laberinto desconoci- 
do cada vez que se quisiera. 

Sin duda, ya has empezado a pensar en cómo va a ser tu pfoximo programa de aventuras, pero 
el interés de un juego reside en gran parte en el laberinto donde se desarrolla la acción; a continua- 
ción tienes unos consejos para diseñar tus propios laberintos. 

Una primera solución al problema consiste en hacer un laberinto aleatorio, pero, por desgracia, 
los resultados no son muy satisfactorios. Es fácil que queden caminos cerrados, secciones inaccesi- 
bles y, en general, la estética del laberinto deja mucho que desear. Además, debes decidir la probabi- : 
lidad de que en un punto del laberinto haya o no una pared, de forma que el número de muros 
no sea ni demasiado grande ni demasiado pequeño. Abandonamos por tanto este método y vamos . 
a ver cómo se diseña un laberinto desde el principio de una forma más satisfactoria. 

En primer lugar hay que decidir dónde se va a almacenar el laberinto. Las soluciones más lógi- 
cas son o una matriz o directamente en memoria por medio de POKE. Este último sistema necesita 
menos memoria, pero el acceso a los datos es más complicado, pues una determinada posición del 
laberinto está determinada por una fórmula en la que intervienen la dirección donde empieza éste, . 
la anchura, la altura, la coordenada “X” y la coordenada “Y”. Por ejemplo, supongamos un labe- 
rinto de 50 filas y 50 columnas, almacenado a partir de la dirección 60000; en este caso, la posición 
(5,3) del laberinto se encontraría en la dirección de memoria resultante de 60000 + 50* 5 +3 y 
para saber su valor habría que hacer un PEEK en esa dirección. : 

Una matriz parece, por tanto, la solución más cómoda. Con objeto de ahorrar memoria usare- . 
mos una matriz alfanumérica, por ejemplo L$ (50,50). Podrás meter, pues, el carácter “IP” para in- 
dicar un tesoro, el “D” para un dragón, etc. 

Conviene, en general, rodear el laberinto con paredes. Este truco, una variación de la conocida ; 
técnica del centinela, facilita mucho la tarea de comprobar si un movimiento es correcto o no, pues ' 
no es necesario ver si se va a salir de los límites del laberinto (con lo que obtendríamos el mensaje 
de “SUBINDICE ERRONEO”), y todo queda reducido a comprobar que no se choca con una pa- 
red. La posición inicial, desde luego, no puede caer encima de una pared. 

Para hacer el laberinto vamos a suponer que las paredes van a tener una anchura de una unidad. 
Debido a esto, el laberinto debe tener unas dimensiones impares, para no tener la posibilidad de 
salirse de éste al construirlo. Por la misma razón, la posición inicial debe tener sus dos coordenadas 
impares. Al hacer el laberinto iremos «andando» con pasos de dos unidades, ya que la pared tiene 
una de anchura. Como ves, las únicas posiciones válidas se encontrarán en unas coordenadas impa- 
res ambas. 
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A 


ARRAY 


El sistema para crear el laberinto consiste en ir recorriendo todos los posibles caminos libres, 
pero, como ya se ha dicho, saltando dos unidades cada vez. 

Para empezar hay que inicializar el laberinto siendo todo paredes; el carácter “P” indica que 
en una posición del laberinto existe una pared. Dado que vamos a andar dos unidades cada paso, 
para ver si en una dirección determinada el camino está libre es necesario saber el carácter que hay 
en el laberinto dos posiciones hacia la dirección que se desea. 

En el caso de que en una determinada posición sólo exista un camino libre, evidentemente, se 
toma éste, pero si existen varias opciones es necesario elegir una al azar y guardar el resto en algún 
sitio. Como ves, este algoritmo es determinista hasta cierto punto, pues cuando hay varios caminos 
libres se elige uno aleatoriamente; debido a esto no se creará el mismo laberinto dos veces. Los ca- 
minos rechazados hay que guardarlos en otra matriz, para más tarde volver sobre ellos y recorrerlos. 
El algoritmo terminará cuando el camino que se esté recorriendo no tenga salida libre, y al ir a 
buscar los caminos que se guardaron anteriormente se encuentre con que la matriz está vacía. Para 
detectar esta situación conviene tener una variable auxiliar que indique qué camino de la matriz 
toca seguir (para los que tengan conocimientos de código máquina, esta variable hace la función 
del puntero de pila, y la matriz es la pila). Los caminos que se vayan recorriendo se marcarán, por 
ejemplo, con el carácter “O”, para indicar que por ahí ya se ha pasado y que se considera un camino 
«no libre», pues no tiene una “P”, 

En el caso de que se desee evitar que un camino pase por una determinada posición, en lugar 
de inicializar ésta con una “P” se debe hacer con otro carácter, por ejemplo una “M”, para indicar 
la existencia de un monstruo. 

Presta atención cuando desarrolles la subrutina que determina los caminos libres, pues es nece- 
sario acceder a una posición situada a dos unidades de distancia de la posición actual, y si te en- 
cuentras junto a una pared delimitadora del laberinto puede dar error. Una solución fácil a esto 
es delimitar el laberinto con dos paredes, en total una anchura de dos unidades, con lo que nunca 
te saldrás del rango de la matriz. 
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¿Estás dispuesto a buscar las diez joyas del tesoro de tu 
tío, desactivar bombas atómicas, recuperar el control de la 
«Espada de Roac», destruir al temible y todopoderoso 
Warlock o perseguir al pérfido Dalvena por las mazmorras 
del castillo? 


Aquí tienes siete soberbios juegos de aventura gráficos, 
escritos especificamente para el ZX Spectrum, que retarán 
al máximo tu imaginación y tu habilidad como 
programador. Las técnicas usadas en el diseño de cada 
juego se explican detalladamente: ahorro de memoria, 
definición de nuevos juegos de caracteres, uso gráfico de 
PLOT y DRAW, código máquina, seudo-matrices, UDG, 
números aleatorios... 


JUEGOS GRAFICOS DE AVENTURA PARA ZX SPECTRUM 4 
es el libro más divertido y útil para jugar y aprender 

técnicas sofisticadas de programación. A partir de las ideas 

y técnicas que te ofrece podrás desarrollar infinitas 

variaciones de apasionantes juegos con los escenarios y 

argumentos más exóticos que se te ocurran. 


¡Explora el mundo de los juegos de aventura... Te queda 
mucho por descubrir! 
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